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requires Disk Drive and Joystick 



Available at your favorite Atari dealer 
To order direct, send a check or 
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shipping and handling for each 
program ordered. 
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Editorial 



It seems fitting that, in tliis adventure 
issue of ANALOG Computing, we begin 
a new section: the Video Digest, devoted 
to coverage of the "new generation" of 
video game machines and software. To 
bring readers the most complete news and 
reviews possible, our Digest will cover all 
the makes of games and machines now 
on the market. 

The writers of Video Digest — Joyce 
Worley, Arnie Katz and Bill Kunkel — are 
known to those of you who read ST-Log, 
where they cover news of the entertain- 
ment software out for the Atari ST line. 
Having tried their collective hand at near- 
ly every form of gamesmanship on the 
market, they are uniquely qualified to 
bring us all up to date on the current 
equipment and revived interest in video 
games. 

We hope our readers will enjoy — and 
profit from — this new section, in continu- 
ing on the road of the Atari Adventure. 

Also in this issue is the second M/L 
listing for "Troll Wars II." Now, you can 
dig in and play to your heart's content. 

Worlds of fantasy in our hearts, we're 
proud to bring you the first installment 
of Clayton Walnum's "The Wizard." For 
those of you who've always wanted to 
write a text adventure — but who've never 
wanted to learn how to do the actual 
programming — this is for you! It's an ad- 
venture construction set that'll have your 



ideas on disk in no time, to delight and 
confuse your friends. 

Go out for a midnight stroll in "Casta- 
way," and you'll find yourself stranded on 
the proverbial island. This text adventure 
was written by Rick Graves, using tips 
from Clayton Walnum, too, as presented 
for programmers in our "Adventurous Pro- 
gramming" series last year. 

Games. . .you thought you'd sworn off 
the things, eh? Well, "The ROBOX Inci- 
dent" will have you back at your monitor 
in no time. . .playing on an alien com- 
puter that has crash-landed in your back- 
yard. Sworn off? Not yet! 

And, for reality's sake, we've included 
a look at the Texan BBS, Computalk. With 
its creator's energy and drive, this BBS is 
one to watch. 

As fall gets us back into the swing of 
things, we're occupied with getting our 
magazines out on time for you. (No, we 
haven't disappeared; we've just changed 
printers and are getting back on schedule. 
I hate it when Murphy's Law strikes — 
over and over and over.) We're also con- 
tinuing to work on the Columbus Day 
weekend's Atari fair planned in our area. 

It may seem old hat to those on the West 
Coast, but this is exciting for us — we've 
attended fairs and shows all over the 
country, and this is the first Atari fair 
that's been held in the Northeast. 

We think it'.s long overdue: the area is, 



after all, one of the centers of computer 
expertise in the U.S., as well as a hotbed 
of college campuses. Atari needs more 
represejitation here, and this will be a 
good chance for Atarians on the East 
Coast to show themselves, and for deal- 
ers to make themselves better known to 
a whole section of the marketplace. 

We're looking forward to playing host 
to those of you who'll be able to make the 
trip. With the goings-on in the desktop 
publishing and MIIJI worlds of comput- 
ing, this fall has many promises to keep. 
It will be our pleasure to bring you the 
latest news for the coming holiday season. 

See vou in October! 



f <:r<6l.j«>C<!_,;7p-7V^:^ 



Diane L. Caw 
Managing Editor 
ANALOG Computing 
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Reader comment 



The case of the missing case. 

Astute readers have probably noticed 
that the "Streamhner" article [issue 56} 
claims there are "three cases in which bi- 
nary files contain unnecessary informa- 
tion that can be removed by "Streamliner" 
— but lists only two. Yes, there's a third 
case, but. . .uh. . .my dog ate it. 

Here's case 3: binary files which have 
been appended to. Basically, the way this 
works is that, if a binary file which al- 
ready exists is opened for an append oper- 
ation (so that data can be added to the end 
of the file), the new data is put in a new 
sector, even if the last sector of the file has 
some room in it. 

Suppose you create a file containing 1 
byte. Then, you open the file for an ap- 
pend operation, add 1 byte to the end of 
the file, close the file, and repeat this "ap- 
pend and close" bit 99 times. Believe it 
or not, you'd end up with a 100-byte file 
which requires 100 sectors on disk! Some- 
thing similar happens if you type in a ma- 
chine language program using "M/L Edi- 
tor" in more than one sitting. (This is not 
"M/L Editor's" fault; blame it on DOS.) 

If "Streamliner" processes a file like 
this that doesn't contain any extra bytes, 
via case 1 or 2, then it would determine 
that the file was in perfect order. (If the 
file did contain such bytes, the unused 
disk space would be removed when the 
file is rewritten.) This is not a bug in 
"Streamliner" because it is designed to 
look for extraneous bytes, not unused 
space which is not part of a file. 

The solution is easy. Just use option C, 



"Copy file" from the DOS menu to copy 
the file in question to itself by entering 
the same filename for both the source and 
destination. Even though most programs 
in ANALOG Computing don't need any 
Streamlining, you should use this little 
trick after typing in a program with "M/L 
Editor" or any other program you believe 
to contain "dead space." I hope this hasn't 
caused too much confusion. 

James Hague 

Author of "Streamliner" 

Richardson, TX 

How about it, EA? 

I would like to respond to an item in 
issue 56 of your magazine, concerning 
Electronic Arts. In the "ST notes" section, 
EA President Trip Hawkins was quoted 
as saying that the Atari 8-bit line would 
probably lose the support of EA, due to 
poor sales of new products last year. I've 
looked at those products from EA, and 
only one, Chessmaster 2000, impressed 
me to the point where I'd buy it. 

However, there is an EA software pack- 
age that I'd buy immediately — if only 
they'd port it over to the 8-bit. The pack- 
age I'm referring to is The Bard's Tale. I 
feel it has the quality that everyone wants 
in a software package for their computer 
and consider it the best EA has to offer. 

I wonder why EA is so critical of Atari 
without showing us their best. Software 
companies should just port their top prod- 
ucts to the Atari 8-bit line. If they find that 
Atari owners won't buy products that Ap- 
ple and Commodore owners make top 



sellers, then forget us. Until they try us, 
and see that we'll buy quality, I guess 
we're sunk. 

So how about it, Mr. Hawkins? Give us 
a shot at the good stuff. Give us a shot at 
The Bard's Tale. If we don't buy that one, 
or other quality "port overs," then we 
won't buy anything. Maybe you'll find 
that, while we might not be the place for 
new products, we'll buy what sells on oth- 
er systems. This may not give us products 
the others don't have, but we'll get more 
than we have now. 

Duke T. Matlock 

St. Louis, MO 

Lightspeed C manual improved. 

I'm writing to inform you that the man- 
ual to our product, Lightspeed C, which 
was reviewed in the April issue of ANA- 
LOG Computing, has been revised, per 
the recommendation of reviewer Kurt 
Oestreich. The text size is significantly 
larger and the manual is now a pleasure 
to read. I would like to take this oppor- 
tunity to thank Kurt for his honest and fair 
review of our product. 

Also, I would like to introduce a re- 
vised, completely new edition of Elite Per- 
sonal Accountant. Since the program was 
taken in by our company, it has undergone 
a major overhaul, including increased 
speed (nearly two times as fast) and a new 
manual. 

Other new releases include our Brown 

Baggin It! line of games for the Atari 8-bit. 

The first of these is Classy Chassy, a full- 

(continued on page 86J 
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GAME 



48K Disk 



The 

ROBOX 

Incident 



Try out the alien computer 
that just crashed into your life. 




by Barry Kolbe and Bryan Schappel 



Your bed still likes you, even if you have been gone a long 
time— and you still like your bed. You hit the sack at about 
10:00 p.m. and have been snoozing comfortably for nearly 
five hours, when. . .there's a crash and a bright flash of 
white light. Amazing how none of your neighbors have been 
awakened, isn't it? 

You leap from bed, as best you can, don your robe and 
slippers, step on the dog, trip over your stuffed Komodo 
dragon doll and stumble down the stairs. The back door 
opens, even though you wanted it to, and you're outside. 

Over in the vegetable garden, right on top of the corn that 
just started to come in, between the carrots and the peas, 
is a crater the size of your pumpkin patch. [Hey, where did 
the pumpkin patch go?] 

Against your best judgment, you approach this crater — 
waiting for a big green thing with scales to jump at your 
throat, but no such luck. There's just a blackened box, with 
a panel and a button, sitting there. You're about to re-enter 
your humble abode and pass this occurrence off as a nor- 
mal everyday kinda thing, when you notice the words Press 
START on the panel. 

Well, you thought that addiction to computer games was 
cured, didn't you? Not quite. Against your will you press 
START and . . . 

Typing it in. 

Listing 1 contains the BASIC data statements used to cre- 
ate the ROBOX.COM file on your disk. Please refer to the 
"M/L Editor," found elsewhere in this issue for instructions 
on keying in ROBOX. 

Once the ROBOX.COM file has been created, simply bi- 
nary load it from DOS. If you're not sure how to do this, 
please refer to your DOS manual for instructions. 



Playing ROBOX. 

You are now the proud owner of a slightly used alien com- 
puter, sent to Earth for reasons unknown. One nice thing 
about these aliens is that they speak the English tongue. 

The computer uses the universal QWERTY keyboard as 
an input device and has a built-in CRT terminal for output. 
There also must be a disk in drive 1 at all times during play. 

ROBOX has a total of 42 points. There is a point display 
at the bottom of the screen; keep a close eye on it, because 
it tells you if you did something right or wrong. For each 
new thing you discover, you receive 1 point. If you then 
do the thing wrong, after having done it right, you will loose 
1 point. 

Learning how to save/load a game also gives you points, 
so you may want to figure out how to do these operations 
first. 

Program options. 

There are a couple of options available to you, that just 
make playing more fim. You will notice messages are print- 
ed to the screen slowly; to speed things up, press the in- 
verse (Atari logo) key. Pressing it again will toggle it back 
to slow mode. 

The other option is a key-click toggle. There is normally 
no click, so if you like the cHck, just press CTRL-CAPS. 
Press CTRL-CAPS again to turn off the click. 

Technical notes. 
ROBOX operates in graphics mode 0, on a narrow play- 
field. The wonderful moving graphs at the bottom of the 
screen were accomplished by defining a pair of characters 
with a pattern that would meet at both ends if folded over 
(like a sine wave). Then, every three vertical blanks, the 
character definition is shifted to the left with the ROL, LSR 
instructions, checking to see if the carry was set. If so, bit 
7 of the rightmost character is set. 
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WHAT IS 

ST-CHECK? 



Most ST BASIC program listings in this magazine 
are followed by a table of numbers appearing as data 
statements, called "ST CHECKSUM DATA." These 
numbers are to be used in conjunction with ST-Check 
(which appeared in ANALOG Computing issue 41). 

ST-Check, written by Clayton Walnum, is designed 
to find and correct typing errors when readers are en- 
tering programs from the magazine. For those read- 
ers who would like copies of the article, you may send 
for back issue 41 of ANALOG Computing for $4.00. 



ANALOG COMPUTING 

P.O. Box 625, Holnnes, PA 19045 



PICK-YOUR-PRICEHl 



THAT'S RIGHT — PICK THE 
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GET FREE SHIPPING 



HERE'S HOW - JUST SEARCH THRU THE 
ADS OF THIS ISSUE, PICK THE ITEM 
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Orders shipped FREE within 24 hours 
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obsolete or discontinued products 



APO & FPO add $5.00 HANDLING Charge 
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^^ ROB ox continued 



We used a custom screen print routine (the OS will not 
do narrow playfields) that accesses screen memory direct- 
ly — this bugger can fill a screen with straight ATASCII text 
in the wink of an eye. Try that with CIO someday. (Our print 
routine also does word wraps, making the text easier to 
read.) There's a custom input routine used that will allow 
only sixty-four character inputs, alphanumeric only. 

All game messages are tokenized to save memory. This 
also means that you can't look at the disk file for clues. By 
tokenizing the messages, we probably saved upwards of fif- 
teen sectors. The Scott Adams adventures also used a tech- 
nique similar to this, so all his adventures could fit into 16K. 

We hope ROBOX keeps you busy for the next month. You 
may want to schedule an appointment at the Hair Trans- 
plant Salon in the near future [you could be pulling out quite 
a bit]. 

ANALOG Computing will not give clues over the phone. 
If you'd like a copy of the game's solution, send a stamped, 
self-addressed envelope to: ROBOX Solution, c/o ANALOG 
Computing, P.O. Box 23, Worcester, MA 01603. H 

Barry KoJbe is a mathematics teacher in Madison, Wl. 
He uses the Atari to demonstrate graphing in his classroom. 
His former student, Bryan Schappel, is studying Computer 
Science at the University of Wisconsin. This is their /ourth 
team project for ANALOG Computing. 

Listing 1. 
"M/L Editor" Data. 



IQOa DflTfl 255,255,0,32,251,32,0,6,8,0, 

0,0,0,0,0,24,3724 

1010 DATA 24,24,24,0,24,0,0,102,102,10 

2,0,0,0,0,0,102,5660 

1020 DATA 255,102,102,255,102,0,24,126 

,96,126,6,126,24,0,0,102,137 

1030 DATA 108,24,48,102,70,0,28,54,28, 

56,111,102,53,0,0,24,7124 

1040 DATA 24,24,0,0,0,0,0,30,28,24,24, 

28,30,0,0,120,4754 

1050 DATA 56,24,24,56,120,0,0,102,60,2 

55,60,102,0,0,0,24,8224 

1060 DATA 24,126,24,24,0,0,0,0,0,0,0,2 

8,28,56,0,0,2988 

1070 DATA 0,126,126,0,0,0,0,0,0,0,0,28 

,28,0,0,0,2400 

1080 DATA 7,12,24,48,224,0,0,126,102,1 

10,118,102,126,0,0,120,1601 

1090 DATA 24,24,24,24,126,0,0,126,6,12 

6,96,96,126,0,0,126,144 

1100 DATA 6,62,6,6,126,0,0,108,108,108 

,124,12,12,0,0,126,8498 

1110 DATA 96,126,6,6,62,0,0,124,96,126 

,102,102,126,0,0,126,926 

1120 DATA 6,14,28,56,48,0,0,126,102,60 

,102,102,126,0,0,126,228 

1130 DATA 102,126,6,6,126,0,0,56,56,0, 

56,56,0,0,0,56,5292 

1140 DATA 56,0,56,56,56,112,0,30,48,96 

,48,30,0,0,8,0,5060 

1150 DATA 126,0,0,126,0,0,0,120,12,6,1 

2,120,8,0,0,126,6496 

1160 DATA 102,12,252,32,247,33,24,0,24 

,0,0,126,102,110,110,96,1551 

1170 DATA 126,0,0,126,102,102,126,102, 

102,0,0,126,102,124,102,102,3274 

1180 DATA 126,0,0,126,96,96,96,96,126, 

0,0,124,102,102,102,102,2844 



1190 DATA 124,0,0,126,96,124,96,96,126 

,0,0,126,96,124,96,96,3088 

1200 DATA 96,0,0,126,96,96,110,102,126 

,0,0,102,102,126,102,102,3052 

1210 DATA 102,0,0,56,56,56,56,56,56,0, 

0,6,6,6,6,102,5452 

1220 DATA 126,0,0,96,102,108,126,102,1 

02,0,0,96,96,96,96,102,2320 

1230 DATA 126,0,0,99,119,127,99,99,99, 

0,0,124,102,102,102,102,2889 

1240 DATA 102,0,0,126,102,102,102,102, 

126,0,0,126,102,102,126,96,3324 

1250 DATA 96,0,0,126,102,102,102,108,1 

18,0,0,126,102,102,124,108,3466 

1260 DATA 102,0,0,124,96,126,6,6,62,0, 

0,126,24,24,24,24,6646 

1270 DATA 24,0,0,102,102,102,102,102,1 

26,0,0,102,102,102,102,60,1956 

1280 DATA 24,0,0,99,99,99,127,119,99,0 

,0,102,102,60,60,102,1443 

1290 DATA 102,0,0,102,102,126,24,24,24 

,0,0,126,108,24,48,102,9246 

1300 DATA 126,0,0,30,24,24,24,24,30,0, 

0,0,224,48,24,12,6576 

1310 DATA 7,0,0,120,24,24,24,24,120,0, 

0,8,28,54,99,99,7786 

1320 DATA 0,0,248,33,243,34,0,0,0,0,0, 

0,255,255,0,0,500 

1330 DATA 60,126,0,126,60,0,0,93,84,93 

,0,1,0,1,0,1,4918 

1340 DATA 0,17,16,17,0,0,192,192,192,1 

92,192,192,192,192,192,192,3570 

1350 DATA 192,192,208,204,252,0,0,0,48 

,120,204,198,3,0,0,12,1109 

1360 DATA 30,51,97,192,128,0,0,0,63,12 

7,224,192,192,192,0,0,4980 

1370 DATA 255,255,0,0,0,0,0,0,252,254, 

7,115,59,27,192,192,5497 

1380 DATA 192,192,192,192,192,192,3,3, 

3,3,3,3,3,3,192,216,2000 

1390 DATA 216,204,224,127,63,0,0,0,0,0 

,0,255,255,0,3,3,9977 

1400 DATA 3,3,7,254,252,0,255,129,129, 

129,129,129,129,255,0,0,7188 

1410 DATA 15,8,8,8,248,0,0,0,224,32,32 

,32,63,0,0,16,6884 

1420 DATA 24,252,252,24,16,0,0,8,24,63 

,63,24,8,0,0,0,4875 

1430 DATA 0,255,255,0,0,0,0,0,3,3,3,3, 

0,0,0,0,2831 

1440 DATA 192,192,192,192,0,0,0,0,0,0, 

0,0,0,0,0,0,3360 

1450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,1450 

1460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,24,1844 

1470 DATA 60,126,24,24,24,0,0,24,24,24 

,126,60,24,0,0,24,5520 

1480 DATA 48,126,244,34,239,35,48,24,0 

,0,0,24,12,126,12,24,7353 

1490 DATA 0,0,0,24,60,126,126,60,24,0, 

0,0,126,6,126,102,9464 

1500 DATA 126,0,0,96,96,126,102,102,12 

6,0,0,0,124,96,96,96,1842 

1510 DATA 124,0,0,6,6,126,102,102,126, 

0,0,0,126,102,126,96,1600 

1520 DATA 124,0,0,30,24,126,24,24,24,0 

,0,0,126,102,102,126,9828 

1530 DATA 6,126,0,96,96,126,102,102,10 

2,0,0,24,0,56,24,24,7672 

1540 DATA 24,0,0,6,0,6,6,6,6,62,0,96,9 

6,188,120,108,9828 

1550 DATA 102,0,0,56,24,24,24,24,24,0, 

8,8,198,238,254,198,5600 

1560 DATA 198,8,8,8,126,102,102,102,10 

2,0,0,0,126,102,102,102,1676 

1570 DATA 126,0,0,0,126,102,102,126,96 

,96,0,0,126,102,102,126,3096 
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2340 DATA 231,202,32,283,42,76,30,44,2 

01,96,240,220,201,123,176,216,3591 

2350 DATA 133,138,201,65,144,7,201,91, 

176,3,24,105,32,224,63,240,7994 

2360 DATA 199,157,0,6,165,138,32,203,4 

2,232,208,188,157,0,6,134,7915 

2370 DATA 134,198,135,76,222,41,216,16 

9,0,170,157,0,36,232,208,250,2092 

2380 DATA 165,135,240,52,165,139,10,10 

,24,105,64,141,0,208,165,140,6841 

2390 DATA 10,10,10,24,105,58,170,173,4 

3,2,240,11,169,240,157,0,7084 

2400 DATA 36,133,145,169,60,133,146,16 

5,145,198,146,208,8,160,30,132,9546 

2410 DATA 146,73,240,133,145,157,0,36, 

230,154,165,154,201,2,208,51,9759 

2420 DATA 169,0,133,154,162,7,189,48,3 

4,10,157,48,34,62,40,34,1326 

2430 DATA 144,9,169,1,24,125,48,34,157 

,48,34,189,136,34,10,157,4022 

2440 DATA 136,34,62,128,34,144,9,169,1 

,24,125,136,34,157,136,34,4271 

2450 DATA 202,16,211,76,98,228,236,44, 

229,45,169,0,133,151,166,155,666 

2460 DATA 240,66,230,153,166,153,224,8 

, 208, 58, 133, 153, 164, 152, 200, 192, 3597 

2470 DATA 8,208,2,160,0,132,152,185,70 

,40,141,1,208,152,73,7,5508 

2480 DATA 168,185,70,40,141,2,208,160, 

12,185,24,34,201,208,240,4,8660 

2490 DATA 136,16,246,200,169,192,153,2 

4,34,169,208,192,0,208,2,160,9546 

2500 DATA 13,153,23,34,76,95,228,72,13 

8,72,166,151,189,64,40,141,7955 

2510 DATA 24,208,141,10,212,189,67,40, 

141,23,208,141,10,212,230,151,839 

2520 DATA 104,170,104,64,165,121,5,122 

,208,6,169,254,133,121,133,122,303 

2530 DATA 32,220,41,133,135,141,200,2, 

133,148,133,149,230,149,133,150,1993 

2540 DATA 133,151,133,152,133,153,133, 

154,133,155,169,32,141,244,2,169,701 

2550 DATA 240,133,145,169,30,133,146,1 

69,61,141,47,2,169,7,160,108,6412 

2560 DATA 162,44,32,92,228,169,6,160,2 

36,162,44,32,92,228,169,57,9197 

2570 DATA 141,0,2,169,45,141,1,2,169,1 

92,141,14,212,32,66,41,4497 

2580 DATA 169,32,141,7,212,169,3,141,2 

9,208,32,201,41,141,8,208,7547 

2590 DATA 141,9,208,141,10,208,169,68, 

141,192,2,169,56,141,193,2,7830 

2600 DATA 169,168,141,194,2,230,155,16 

0,5,169,120,153,183,37,153,215,1582 

2610 DATA 38,136,16,247,230,45,225,46, 

216,162,0,189,195,51,24,105,8440 

2620 DATA 5,157,195,51,232,224,188,208 

,242,169,1,141,68,2,169,255,2310 

2630 DATA 133,161,169,176,160,51,32,98 

,43,32,226,41,32,18,44,162,4015 

2640 DATA 255,134,160,173,0,6,201,155, 

208,10,169,0,160,6,32,98,5061 

2650 DATA 43,76,7,46,162,0,134,159,188 

,139,52,185,195,51,16,10,5593 

2660 DATA 169,32,160,53,32,98,43,76,7, 

46,205,6,6,240,6,232,5260 

2670 DATA 208,228,76,7,46,162,0,232,20 

0,185,195,51,48,7,221,0,7092 

2680 DATA 6,240,244,208,7,41,127,221,0 

,6,240,6,32,201,46,76,5576 

2690 DATA 7,46,134,158,166,159,189,44, 

58,208,6,254,44,58,32,187,7854 

2700 DATA 50,166,158,232,189,0,6,201,1 

55,208,3,76,8,47,201,32,5788 

2710 DATA 240,3,76,90,46,232,134,157,1 

62,0,134,160,188,148,52,185,468 

2720 DATA 241,51,48,47,166,157,221,0,6 

,240,5,166,160,232,208,234,3407 

2730 DATA 232,200,185,241,51,48,7,221, 



0,6,240,244,208,15,41,127,8430 

2740 DATA 221,0,6,208,8,232,189,0,6,20 

1,155,240,77,32,201,46,8415 

2750 DATA 76,7,46,166,157,32,201,46,76 

,7,46,134,156,162,0,189,6582 

2760 DATA 0,6,157,112,58,232,228,156,2 

08,245,160,0,185,42,53,157,599 

2770 DATA 112,58,232,200,226,46,221,47 

,192,7,208,244,164,156,185,0,1928 

2780 DATA 6,201,155,240,10,9,128,157,1 

12,58,200,232,185,0,6,157,8448 

2790 DATA 112,58,201,155,208,244,169,1 

12,160,58,32,98,43,96,165,159,9294 

2800 DATA 10,170,189,86,58,141,25,47,1 

89,87,58,141,26,47,32,255,6205 

2810 DATA 255,76,7,46,169,49,160,53,32 

,98,43,169,60,160,53,32,4201 

2820 DATA 98,43,169,68,160,53,32,98,43 

,169,71,160,53,32,98,43,3982 

2830 DATA 169,74,160,53,32,98,43,169,7 

7,160,53,32,98,43,96,166,5472 

2840 DATA 160,240,8,169,178,160,53,32, 

98,43,96,173,78,58,208,6,6143 

2850 DATA 238,78,58,32,187,50,169,115, 

160,52,32,98,43,169,127,160,7762 

2860 DATA 52,32,98,43,162,3,134,156,16 

9,240,160,52,32,98,43,166,7850 

2870 DATA 156,202,16,242,169,252,160,5 

2,32,98,43,169,8,160,53,32,5759 

2880 DATA 98,43,169,20,160,53,32,98,43 

,96,166,160,224,1,240,15,7636 

2890 DATA 224,3,208,3,76,236,50,169,17 

8,160,53,32,98,43,96,32,5251 

2900 DATA 128,50,144,1,96,169,190,160, 

53,32,98,43,32,18,44,162,3979 

2910 DATA 0,134,161,188,189,52,185,153 

,52,48,10,205,0,6,240,17,5663 

2920 DATA 166,161,232,208,236,169,195, 

160,52,32,98,43,169,255,133,161,2495 

2930 DATA 96,162,0,232,222,47,217,48,2 

00,185,153,52,48,7,221,0,7567 

2940 DATA 6,208,225,240,242,41,127,221 

,0,6,208,221,166,161,189,52,2189 

2950 DATA 58,208,6,254,52,58,32,187,50 

,169,213,160,52,32,98,43,6471 

2960 DATA 96,169,179,160,56,32,98,43,3 

2,226,41,230,149,165,165,201,1770 

2970 DATA 42,240,76,169,189,160,56,32, 

98,43,32,126,48,169,253,162,9502 

2980 DATA 0,32,144,48,142,47,2,142,29, 

208,169,64,141,14,212,169,8691 

2990 DATA 42,141,200,2,162,228,168,95, 

169,6,32,92,228,162,228,160,2229 

3000 DATA 98,169,7,32,92,228,169,9,162 

,3,157,0,208,202,16,250,9583 

3010 DATA 169,255,162,160,32,144,48,16 

9,0,141,200,2,76,98,48,169,6945 

3020 DATA 23,141,208,56,169,189,160,56 

,32,98,43,169,210,160,56,32,7811 

3030 DATA 98,43,32,126,48,76,98,48,32, 

226,41,169,229,160,56,32,7176 

3040 DATA 98,43,169,249,160,56,32,98,4 

3,96,133,19,134,20,165,19,4710 

3050 DATA 48,252,96,166,160,224,1,240, 

8,169,178,160,53,32,98,43,7560 

3060 DATA 96,32,128,50,144,1,96,165,16 

1,16,8,169,205,160,52,32,6444 

3070 DATA 98,43,96,10,170,189,102,58,1 

41,200,48,189,103,58,141,201,291 

3080 DATA 48,32,255,255,166,161,189,57 

,58,208,6,254,57,58,32,187,9293 

^S!2 ^^I** 50,76,7,46,218,48,213,49,169 

,227,160,52,32,98,43,162,7958 

3100 DATA 41,189,44,58,157,112,58,202, 

16,247,169,4,32,40,49,16,3850 

3110 DATA 10,169,18,160,58,32,98,43,32 

,74,49,169,7,32,85,49,1857 

3120 DATA 162,41,189,44,58,29,112,58,1 

57,44,58,202,16,244,32,187,7830 
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3910 DftTA 114,110,32,101,97,114,116,18 

4,32,116,104,97,116,32,105,116,6700 

3920 DflTfl 32,105,115,32,111,110,32,97, 

32,6,32,16,32,119,105,116,3255 

3930 DATft 104,32,97,32,11,46,32,4,32,1 

04,97,115,32,115,101,110,4180 

3940 DftTft 115,111,114,115,32,116,111,3 

2,103,97,21,114,32,1,46,32,2096 

3950 DATA 119,104,101,110,32,4,32,114, 

101,116,117,114,110,115,32,116,6440 

3960 DflTft 111,32,5,32,119,101,32,119,1 

05,108,108,32,97,108,116,101,6381 

3970 DftTfl 114,32,21,32,16,32,111,102,3 

2,21,32,11,32,97,110,100,2210 

3980 DflTfl 32,97,118,111,105,100,32,97, 

32,6,46,155,5,32,105,115,3771 

3990 DATA 32,21,32,102,111,117,114,116 

,104,32,112,108,97,110,101,116,7507 

4000 DATA 32,102,114,111,109,32,21,32, 

115,116,97,114,32,103,114,105,6040 

4010 DATA 110,100,108,32,105,110,32,97 

,32,112,97,114,97,108,108,101,6809 

4020 DATA 108,32,117,110,105,118,101,1 

14,115,101,46,32,5,32,104,97,4395 

4030 DATA 115,32,50,32,109,111,111,110 

,115,32,97,110,100,32,97,32,4812 

4040 DATA 103,114,97,118,105,116,97,11 

6,105,111,110,97,108,32,102,111,7549 

4050 DATA 114,99,101,32,194,54,189,55, 

111,102,32,55,48,46,32,105,4309 

4060 DATA 116,32,104,97,115,32,97,32,1 

00,105,97,109,101,116,101,114,7243 

4070 DATA 32,111,102,32,49,55,44,48,48 

,48,32,10,46,32,5,32,9042 

4080 DATA 105,115,32,57,56,32,109,105, 

108,108,105,111,110,32,10,32,3893 

4090 DATA 102,114,111,109,32,103,114,1 

05,110,100,108,46,155,116,104,101,8158 

4100 DATA 32,13,32,8,32,9,32,8,46,32,1 

2,32,99,111,109,109,2258 

4110 DATA 97,110,100,115,46,32,18,100, 

44,115,116,32,2,108,116,32,3531 

4120 DATA 105,115,32,117,115,101,100,3 

2,116,111,32,101,110,100,32,8,4312 

4130 DATA 109,105,110,103,46,32,1,32,1 

05,115,32,115,116,111,114,101,6091 

4140 DATA 100,32,105,110,155,51,32,114 

,101,103,105,115,116,101,114,115,8222 

4150 DATA 58,32,114,101,103,32,97,44,1 

14,101,2,103,99,46,32,21,2797 

4160 DATA 32,100,105,115,116,97,110,99 

,101,32,102,114,111,109,32,21,5395 

4170 DATA 32,115,116,97,114,32,105,115 

,32,112,117,116,32,105,110,32,5720 

4180 DATA 114,101,103,97,46,32,109,111 

,111,2,105,116,121,32,19,32,3650 

4190 DATA 114,101,103,99,46,32,21,32,1 

3,32,20,32,52,51,49,50,2 

4200 DATA 46,155,21,32,14,32,8,32,9,32 

,8,46,32,12,32,99,9010 

4210 DATA 111,109,32,2,190,55,185,56,1 

8,32,2,32,100,44,102,114,3824 

4220 DATA 111,44,104,97,108,116,46,32, 

104,97,108,116,32,105,115,32,5542 

4230 DATA 117,115,101,100,2,101,103,99 

,46,32,21,32,100,105,115,116,5109 

4240 DATA 97,110,2,111,111,110,32,100, 

97,116,97,32,19,32,114,101,4751 

4250 DATA 103,2,32,103,114,97,118,155, 

2,104,101,32,14,32,20,32,2078 

4260 DATA 114,101,118,2,32,182,101,114 

,32,116,111,32,114,111,109,45,5773 

4278 DATA 98,46,155,97,188,188,32,115, 

121,115,116,181,189,115,32,97,7431 

4280 DATA 114,101,32,102,117,110,99,11 

6,105,111,110,105,110,103,32,101,7459 

4290 DATA 128,99,181,112,115,32,21,32, 

13,32,97,118,180,32,14,32,1828 



4300 DATA 97,117,116,111,32,8,109,105, 

118,183,32,119,181,114,101,32,5970 

4310 DATA 100,105,115,114,117,112,116, 

101,100,32,100,117,114,105,110,103,827 

2 

4320 DATA 32,97,32,109,97,103,110,101, 

116,105,99,32,115,116,111,114,7934 

4330 DATA 189,46,155,112,97,115,115,11 

9,111,114,188,63,155,7,32,100,6564 

4340 DATA 101,110,105,181,100,155,7,32 

,97,108,108,111,119,101,188,155,8529 

4358 DATA 8,32,188,111,118,181,155,49, 

46,32,13,32,58,46,32,14,1058 

4360 DATA 32,8,63,155,0,6,14,19,27,33, 

41,49,53,114,111,98,2633 

4370 DATA 111,120,32,14,186,56,181,57, 

46,46,155,121,111,117,114,32,7196 

4380 DATA 109,105,115,115,105,111,110, 

32,119,97,115,32,97,32,22,155,5938 

4390 DATA 99,111,110,103,114,97,116,11 

7,108,97,116,105,111,110,115,46,8275 

4400 DATA 46,46,155,103,97,109,101,32, 

99,111,109,112,108,105,109,101,8186 

4410 DATA 118,116,115,32,111,102,155,6 

6,97,114,114,121,32,75,111,108,7583 

4420 DATA 98,101,32,97,110,100,32,66,1 

14,121,97,110,32,83,99,184,6456 

4438 DATA 97,112,112,181,188,155,72,57 

,76,57,88,57,93,57,98,57,5128 

4448 DATA 183,57,118,57,119,57,125,57, 

132,57,153,57,158,57,164,57,7832 

4458 DATA 175,57,182,57,191,57,285,57, 

211,57,218,57,230,57,242,57,2582 

4460 DATA 1,58,4,58,11,58,116,97,112,2 

29,100,97,116,225,46,46,8458 

4470 DATA 100,97,116,97,32,108,111,115 

,116,46,174,114,101,97,100,249,946 

4480 DATA 114,111,98,111,248,97,118,11 

6,97,114,101,248,99,111,108,108,1363 

4490 DATA 105,115,105,111,238,97,99,99 

,101,115,243,112,114,111,103,114,1322 

4500 DATA 97,237,99,111,110,115,105,11 

5,115,115,32,111,102,32,97,110,7574 

4510 DATA 32,56,32,115,116,101,240,109 

,105,108,101,243,109,101,116,101,1187 

4520 DATA 111,242,116,104,101,114,101, 

32,97,114,101,32,180,108,97,110,8606 

4530 DATA 100,105,110,231,182,57,111,5 

8,108,97,117,110,99,104,105,110,9214 

4540 DATA 231,109,117,115,116,32,98,18 

1,32,112,117,116,32,185,238,99,9193 

4558 DATA 111,117,114,115,229,185,188, 

188,181,183,97,236,116,184,181,121,134 

4560 DATA 32,97,114,101,58,32,105,238, 

105,115,32,115,116,111,114,101,8868 

4570 DATA 108,32,105,238,102,105,114,1 

05,110,103,32,111,114,100,101,114,8704 

4580 DATA 32,105,243,116,104,229,102,9 

7,105,108,117,114,229,115,117,99,2005 

4590 DATA 99,101,115,243,100,105,115,1 

07,32,102,105,108,101,32,101,114,7858 

4600 DATA 114,111,114,155,68,58,66,79, 

88,46,68,65,84,155,0,0,3722 

4610 DATA 0,8,8,8,8,0,0,8,8,8,8,8,8,8, 

8,8,4618 

4628 DATA 8,0,8,8,8,8,8,8,8,8,0,8,8,8, 

8,8,4628 

4638 DATA 8,8,8,8,8,0,8,8,38,47,73,47, 

148,47,7,48,192 

4648 DATA 153,48,218,48,28,49,117,49,7 

4,58,82,58,98,58,185,58,4253 

4658 DATA 128,58,226,2,227,2,86,45,8,8 

,8,8,8,8,8,8,7665 
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by Douglas Adams and the Staff of Infocom 

INFOCOM 

125 CambridgePark Drive 

Cambridge, lUIA 02140 

48K Disic $39.95 



by Steve Panak 



A long, long time ago, on a computer 
not far enough away, Infocom gave us, the 
computing public, a game so wild, so off 
the wall, that it was a preordained best- 
seller. 'Round about the same time, they 
also gave us interactive fiction plus and 
imiverses so large as to escape the con- 
fines of low memory systems. This new 
product was also greeted warmly and em- 
braced by the public. But now they've 
gone too far. How can the populace resist 
a game combining the two? They can't. 

Bureaucracy is the latest comedy from 
Infocom. Written by Douglas Adams, au- 
thor of the popular Hitchhiker's Guide to 
the Galaxy series, this new work takes 
aim at the bureaucracy and bureaucrats 
we must all deal with in our daily lives. 
And, with uncanny accuracy, it scores a 
direct hit. It makes us laugh, while cyni- 
cally pointing out the frustrations we've 
created for ourselves in this modern world 
in which we live. 

The story starts innocently enough. 
Having just gotten a new job and moved 
to a new home, you seem ready to start 
your life anew. A fresh start, as it were. 
In fact, your first assignment is a train- 
ing session in Paris, France. You feel as 
though you could just sink into your easy 
chair and relax your day away. That's if 
the moving company hadn't lost, mis- 
placed, or otherwise eliminated all your 
possessions. To make things worse, your 
bank has turned on you as well, failing 
to properly process your change of ad- 
dress form and invalidating your charge 
card. By the time you get all these vari- 
ous problems straightened out and final- 
ly get to Paris, you'll have taken an ad- 
venture unlike any you've ever taken be- 
fore — if you survive. 



What could be so dangerous in this 
real -world game? Well, assuming the frus- 
tration doesn't force you into suicide, 
you've got that blood pressure problem to 
worry about. The status line in this game 
is unlike any of Infocom's other offerings. 
In the top right corner of the display is a 
readout of your blood pressure. Each of 
life's little amioyances cause this pressm-e 
to rise slightly. In this game, even order- 
ing a meal or trying to withdraw money 
from your bank are tasks that quickly grow 
to monumental proportions. Taken alone, 
each frustration is merely an additional 
throb in your already aching head. But 
when accumulated, rest assured they're 
lethal. 

The strange status line is only the first 
unique aspect of this Infocom work. A 
sample response from the SCORE com- 
mand typifies the side-splitting prose 
each new frustration can unleash: Your 
bJood pressure is 144/88 in thirty-four 
moves. Your status is livid. Your score is 
out of a possible 21, making you a vic- 
tim. 

In another first, this program allows 
(rather, forces) the player to fill out those 
most infamous of the bureaucratic road- 
blocks; forms. At key places in the game, 
the screen display fills with a form, which 
must be filled out before you're allowed 
to proceed onward. In fact, the first form 
informs (rather, misinforms, in the spirit 
of true bureaucracy) the program of your 
name, sex and other vital statistics. 

The documentation, likewise, is very 
distinctive. Containing a form (of course) 
and a booklet entitled "You're Ready to 
Move," (published by youi' very caring 
bank, the Fillmore Fiduciary Trust Com- 
pany), the game materials foreshadow the 
mess you'll have to disentangle yourself 
from in order to complete the game. Also 



included is a skinny pencil, a charter 
membership flyer for "Popular Paranoia 
Magazine" and a letter from your boss. 
Even the players' testimonies contained 
inside the front cover are different; they're 
complaints from players frustrated with 
Infocom bureaucracy. 

While the game is frustrating to play, 
the program itself is simple to use. My fa- 
vorite feature is the allowed abbreviation 
of EXAMINE to X; it just makes being 
nosey that much easier. 

Even the save game featrue is used 
much differently than in other Infocom 
games. Usually, you save your position be- 
fore trying a dangerous task. In Bureau- 
cracy, you'll find yourself saving your 
position after a particularly frustrating or- 
deal, so that it won't have to be suffered 
through again. Finally, even the constant 
responses in Infocom games (such as 
those elicited by an expletive or a word 
the program doesn't understand) are hu- 
morous and original. 

Bureaucracy is quite possibly the most 
frustrating game Infocom has released. 
It's not hard to play, but, like the world 
in which we live, it's often hard to cope 
with. Like the little aimoyances in life it 
pokes fun at. Bureaucracy gets imder your 
skin. And once implanted, it'll tickle your 
funny bone for days to come. H 

Steve Panak is a Trust Attorney and a 
free-lance writer living in northeastern 
Ohio. He holds a B.S. in B.A. and a f D. 
He currently oversees computer opera- 
tions in his department, where he devel- 
ops software to teach complex legal con- 
cepts. In his spare time, he enjoys com- 
puter games. 
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ATARI 520ST SYSTEM 
FM PACKAGE 

* RGB Monitor or Monchrotne Monhor 

* Built In 3 1/2" SS Double Density Drive 
' Basic 

'TOSonROM 
' RF Modulator 

* Full Manufacter's Warranty 

CALL FOR LOWEST PRICE 



ATARI 1040ST 
SYSTEM PACKAGE 

' RGB Monitor or Monochrome Monitor 

* Built In 3 1/2" DS Double Density Drive 

* Basic 
•TOSonROM 

* Full Manufacter's Warranty 

CALL FOR LOWEST PRICE 



ATARI SF 314 DISK DRIVE 

DOUBLE SIDED/ 1 MEGABYTE STORAGE 

CALL 



"N 



OKIMATE 20 COLOR PRINTER 

& 

ST PLUG N' PRINT 

$205 



SUPRA 20 MEG 

HARD DRIVE 

ONLY 

$539 



PC DITTO 
$84.95 



ST MODEM PACKAGE 

'AVATEX1200HC MODEM 

' ST MODEM CABLE 

' ST TALK TELECOMMUNICATIONS PACKAGES 



'^ PANASONIC 

PANASONIC 10801 - II 
PANASONIC 10911 -11 
PANASONIC 1 0921 
PANASONIC 3131 
PANASONIC 3151 
PANASONIC 1592 
PANASONIC 1595 



149 
179 
289 
269 
409 
419 
449 



^v 



EPSON 



-As 



LX86 
FX86E 
EX 800 
EX 1000 
FX286E 
LQ800. 
LQIOOO 
LO2S00 
^003500 



199 
339 
409 
559 
479 
479 
619 
929 
1499 



"'^y' STAR MICRONICS "SX" 



$145 



>^. 



NX-10 

NL-10 

NP-10 

NX-15 

ND-10 

NR-15 

NB-24/1 

NB-24/1 5 (24 <Mio) 



149 
CALL 
149 
329 
349 
479 
439 
639 



OKIDATA 



V 



OKIDATA 182 
OKIDATA 192+ 
OKIDATA 193t 
OKIDATA 292E 
OKIDATA 293E. 



249 
329 
479 
399 
549 



-A- 



-A^ 



CANON 

CANON A.50 279 

CANON A-55 389 

CANON A-60 349 

SEIKOSHA 

SP-180 1E9 

SP-1000A 199 

SP-t200 209 



"V 



BROTHER 




BROTHER 1009 


139 


BROTHER 1509 


379 


BROTHER 1709 


489 


BROTHER HR 35 


749 


BROTHER 2024 LD 


819 


WINWRITER 5 


839 



r MICKTRON 

BBS 2.0 46.95 

Business Tool 31 .95 

Calendar 16.95 

Cornerman 31.95 

DOS Shel 24.85 

Echo 24.95 

M-Disk + 24.95 

Major MoBon 24.95 

Make It Ktove 44.95 

Mi-Term 31 .95 

Michlron Utilities 37.95 

Cards 24.95 

The Animator 24.95 

Time Bandits 24.95 

Mighty Mail 31 .95 

Personal Money Mgr 31 ,M 

PintwII Factory 24.95 

Rnandal Future 24.95 

Eight Ball 18.95 

Hard Disk Backup 24.95 

Mafch-point 24.95 

Karate KkJ II 24.95 

GFA Basic 48.95 

Trimbase 62.95 

Shurte 2 24.^ 

M-Cache 24.95 

GFA Draft 62.95 

GFA Vector 31.95 

Goldrunner 24.95 

GFA Compiler 48.95 

Reallizer 149.95 

ST ACCESSORIES 

Flip'n' Fie II- Mia-o 1 9,95 

Duslcovers Cal 

3.5 Drive Clean Kit 16.95 

Mouse Pad 8.95 

Mouse House 6.95 

6 Way Surge 

Protector 19.95 

Ana -Glare Soeen 19.95 

6 FT SF 354/314 Cable 19.95 

ST DATABASES 

DB Man 96.95 

Regent Base 57.95 

Data Manager ST 48.95 

Zoomracks II 77.95 

Superbase Gem 94.95 



STADVErirURES 

Hacker 17.95 

Hacker II 25.95 

Sundog 24.95 

Black Cauldron 25.95 

Apshai Tritogy 14.95 

Universe II 44.95 

The Pawn 29.95 

StargSder 29.95 

Dungeonmaster 24.95 

Atternato Reality 26.95 

Tass Times 25.95 

Mercartary 26.95 

Autoduel 32.95 

Ogre 25.95 

Defender of Crown 32.95 

S.D.I 32.95 

Balance ol Power 32.95 

UlUma Ml or IV 38.95 

Fatal 32.95 

Kings Quest 1 ,2 or 3 32.95 

Space Quest 32.95 

Tracker 29,95 

Cotonial Conquest 25,95 

Roadwar 2000 25.95 

Wizard's Crown 25.95 

Rings of Zilftn 25.95 

Sinbad 32.95 

GoWen Path 29.95 

Phantasie 1 .2 or 3 25.95 

Leisure Suit Larry 32.95 

Guild ol Thieves 29.95 

221 Baker Sreet 26.95 

Empire 36.95 

Bard's Tale 33.95 

ABACUS 

Textpro 32.95 

Datatriev© 32.95 

Forth MT. 32.95 

Pain(pro 32.95 

Assempro 39.95 

Pcwerptan 49.95 

Abacus Books Cal 



-A. 



ST TELECOMM 

STTalkVer2.0 CALL 

BB/ST 31.95 

Flash 27.95 

I.STak 33.95 



8T EDUCATIONAL 

Aesop Fables 31.95 

Dedmal Dungeon 24.95 

Fraclon Action 24.95 

KIndarama 24.95 

Read A Rhyme 24.95 

Math Wizard 24.95 

Animal Kingdom 24.95 

Speller Bee 33.95 

Kid Tdk 33.95 

Math Trfk 33.95 

First Shapes 33.95 

Read-A-Rama 31.95 

Math Talk Fractwos 33.95 

Winnie the Pooh 16.95 

Buzzword 27.95 

MagtcflJ Myths 31.95 

1 St Letlers and Words 33 95 

ADVANCED ORDERS 

All About America 36.95 

Adv. ol Sinbad 31.95 

Arabian Nights 3t.95 

STimUTIES 

Music Studio 32.95 

Digi-Drum 24,95 

Time Unk 33.95 

Middip(ay 32,95 

Micro Cookbook 32.95 

CZ Drdd 64.95 

E2 Track 39.95 

ST Replay 99.95 

Write 90 18.95 

Fast 31.95 

Labelmaster Elite 27.95 

St Doctor 24.95 

Back Pak 64.95 

Video Wizard 39.95 

K-Swftch 25.95 

Partner ST 44.95 

Desk Cart 72.95 

Music Cortetruclon Set 33.95 

Smootfi Talker 33.95 

ST WORD PROCESSORS 

Regent Word II 48.95 

Wwdwriter ST 48.95 

Thunder 2G.95 

Microsoft Write Call 

Word Perfect Call 



No surcharge (or 
Master Card 



To Order Call Toll Free 

800-558 0003 



8T UNOUAOES 

Personal Pascal 49.95 

Alice Pascal 49.95 

MarkWIIiamsC 114.95 

Metacomco Pascd 69.95 

Macroasaemliler 49.95 

Lattk:e C 99.95 

Cambridge Usp 139,95 

Module II 67.95 

Metaccmmco Make 49.95 

Miao C shell 34,95 

Module II Developer Call 

Fast Basic 48.95 

True Bask; 49.95 

Fortran 77 124.95 

LDW Basic 44.95 

MT C Shel 84,95 

CASK) KEYBOARDS 

CZ101 Cal 

CZ230S Cal 

ST BUSINESS 

VIP Professional Cal 

SwillcalcST 48.95 

Isgur Portfolio 124.95 

Financial Cookbook 1 4.95 

DAC Payroll 32.95 

DAC Easy Accounling 44.95 

Dolars and Sense 64.95 

Sylvia Porter 48.95 

A-calc Prime 39.95 

LogistJx Jr 57.95 

Logistix 3r 89.95 

DESKTOP PUBLISHINQ 

Drawtte 99.95 

Publishing Ptrfrier 99,95 

Partner Fonts 19.95 

Fteet ST Desktop Pub 74.95 

ST PRINT imLmes 

Rubber Stamp 18.95 

Printmasrtr Plus 24.95 

Megafont ST 24,95 

ArtQa^tery 1 or 2 18.95 

Typesetter Bite 31.95 

PM Interface 18,95 

Cerllfcate Maker 31.95 

LXiraryl/CertJIlcate 

Mkr 21.95 

Print Shop Call 

Fonts* Bordsrs/P.M 21.95 



Rogue 24.95 

Super Huey 25.95 

Mean 18 27.95 

Famous Course Dtak 1 4,95 

Leader Board 25.95 

BraHacus 32.95 

Silent Servtee 25.95 

Flight Simulator II 33.95 

Champ, Wrestling 24.95 

World Games 24.95 

Video Vegas 24,95 

Strip Pc*ter 25,95 

Uttte Computer People 1 6.95 

Gato 24.95 

Joust 20.95 

Star Raklers 20.95 

Chessmaster 2000 29.95 

Tenth Frame 25.95 

Shanghai 25.95 

3-D Heliccpter 3Z95 

Micro League Basebal 39.95 

Gen Mgr/for MLB 1 9.95 

'as Team K For MLBB 16.95 

WWF Micro Wresfling 39.95 

Skyfox 14.95 

Super Cyde 1 4.95 

^^"•^ WSKETTES ==•" 

Sony 3.5 SS/DD 

(10PK) 13.95 

Sony 3,5 DS^D 

(10PK) 18.95 

Note: Buy Diskettes at these (ow 
prk:** when added to any other 
or dor. 

STORAPHKS 

Degas Bite 52.95 

Easy Draw 64.95 

Cad 3-D 32.95 

Graphic Arlst 124.95 

Painlworka 25.95 

tstCadd 31.95 

Aegis Animator 48.95 

Pro Sprite Designer 36.95 

Neochrome 34.95 

Stereo Cad 3-D 6795 

Fonts for CAD 30 17.95 

ST Sprite Factory 25.95 



P.O. BOX 17882. MILWAUKEE. Wl 53217 

ORDER UNES OPEN 

Mon.-Fri.9AM-9PMCSTSat. 11AM-5PM.CST 



'6.om.pat(flbLLLty, 



IfKJoor Sports 32.95 

F-15 3»ike Eagle 27,95 

High Roller Simulator 32.95 

Two on Two Baaketball 25.95 

Deep Space 19.95 

Arena 14,95 

ST Karate 22.95 

The Wanderer 25.95 

Champ Basebal '86 25.95 

GFL Football 25.95 

Harrier Srike 24.95 

Space Stat/Protector 25.95 

Sub Battle Simulator 25.95 

Arctic Fox 26 95 

RPV 24.95 

Crystal Casles 20.95 

Gridiron Footbal 33.95 

ST Wars 24.95 

Hardball 24.95 

Psion Chess 38.95 

Plutos 19.95 

O-Bai 19.95 

Vegas Gambler 21.95 

Vegas Crsps 21.95 

Airbal 24.95 

BrWge 5.0 2^95 

Karateka 22.95 

Barbarian 25.95 

6or>e Rshing 26.95 

TraiWazer 32.95 

Marble Madneas 24.95 



MPOCOM8T 

Bureaucracy 25.95 

Enchanlsf 19.95 

Hifchiker 19.95 

Leather Goddess 25.95 

Lurking Horror 25.95 

Mooomist 25.95 

StationfaH 25.95 

Trinity 25.95 

Wishbftnger 1 1.95 

Zortl 25.95 

Zork II or III 28.95 

Holywood Hijinx* 25.95 

All Invisickjes CALL 



No surcharge for 
Visa 



Co/ilu/net(^/ec<to/i/cl 



TELEX NUMBER 9102406440 

(AMSERBACK ■ COftVUT ULW UO} 



For Technfcii Into, Order 
Inqulriae, or lor Wlec Ordara 

414-357-8181 



.M,to.l,n .,«,..«» ,!%«,,„,„,, „,„!„„„ ,,,.00. A, .«„«pp„ao„M.r,Coo,™i„UUS*..,i«PO«i™,d™M»«U^^^ 



CIRCLE #105 ON READER SERVICE CARD 



'fsOXE COMPUTER 



$149.00 




XF551 DISK DRIVE 
DOUBLE DENSITY 



$175 O 



80 COLUMN WORD 
PROCESSING PACKAGE 

FOR XE/XL COMPUTERS 
XET-80 COLUMN & ATARI WRFTER 80 



BOTH FOR 

1109 



^^^ 



' XDM-121 Letter 
Quality Printer 
W Built in Interface 
12 CPS-Daisy Wheel 



$199 <g^ 



AVATEX1200HC 
MODEM & P. R. 
CONNECTION 

W* ATARI Modem Cable 

5179 



MISCELUNEOUS 


HARDWARE 




PR Connection 


62.95 


US Doubler 


49.95 


Animation Station 


59.95 


Atari XM 301 Modem 


Call 


Supra 1150 interface 


Call 


850 Interface 


Call 


Graphic AT Interface 


39.95 


Avatex 1200HC 




Modem 


119.00 


Avatex 2400 HC 




k Baud Modem 


Call, 




m I c r o ffi I c « 



NX-10 PRINTER 

ONLY 

$149 



Panasonic. 



1080i-II 
PRINTER 

Now at 144 CPS 

ONLY 



$159 



r 



ACCESSORIES 

6 Way Surge 

Protector.™ -^ 1 

Monitor Cable 

Printer Stand 1 

Swivei/Tiit Monitor 

Stand 

Anti-Glare Screen.. 
Teakwood Disk 

Holders- 



9.95 
.9.95 
4.95 

9.95 
19.95 



Disk Notcher 

Blank Disks 

Printer Ribbons 

Dust Covers 

Modem Cable 1 

Printer Cable 1 



9.95 
.5.95 

...Call 
...Call 
...Call 
14.95 
4.95 



1000 Sheet Printer 
Paper 



...19.95 



XLENT SOFTWARE 

Megalont II 16.95 

Xlenl Word Processor ...18. 95 

Page Desiyter— — 18.95 

Megaliler 18.95 

Picture Disk 14.95 

PS Interlace 16.95 

Rubber Starnp — 18.95 

Typesetter 21 .95 

BRODERBUND 

Karateka 19.95 

Print Shop 28.95 

Bank Street Writer 32.95 

GrapNc Ub 1,2,or 3. -16. 95 
Print Shop Compan... 22.95 



ELECTRONIC ARTS 

Age of Adventure _...10.95 

Archon 10-95 

Archon II _10.95 

Financial Cookbook 10.95 

Mail Order Monsters — 10.95 

Movie Maker - 1 0.95 

Music Construction 10.95 

One or One 1 0.95 

Pinball Construction 10.95 

Racing Destruction 10.95 

7 Qtes ol Gold 10.95 

Super Boulder Dash „10.95 

Touchdown Football. 10.95 

Chossmaster 2000 26.96 

Chickaumauga 23.95 

Lords ol Conquest — 22.95 

O^e - 25-96 

Hommel/Tobutk..-. 26,95 

Slarlleet 1 33.95 

Ultima 1 _27.95 

Ultima III.. — 31.95 

Ultima IV 38.96 



DATASOFT 

Alternate 

Reality/City 20.95 

Alt. Reality/Dungeon 26.95 

Gunsilnger._ „20.95 

Video Title Shop 23,95 

221 Baker Street 20,95 

The Mercenary _20.95 

Ttieatre Europe,-./. 23.95 

Data Disk/Mercenary...l1.95 




To Order Call Toll Free 

800-558-0003 



\. 



SSI 

Carrier Force 37.95 

Wargame Cofistr. Set — 19.95 

Broadsides 24.95 

CtxnpLftef Ambush 37.95 

RghterCommarKJ 39.95 

Field of Fire 24.95 

Imperium Galacticijm....24.95 

Warship 39.95 

Kampgruppe 37.95 

Battie of Antietam 32.95 

USAAF - - „.37.95 

phantasie _.-27.95 

Wizard's Crown..„ _27.95 

Gettyburg 39.95 

Panzer Grenider-_ 24.95 

Rebel Charge 32.95 

Batllecruiser 39.95 

ACTIVISION 

Cross Country Race 1 1 .95 

Hacker __.11.95 

Mindshadow 1 6,95 

Music Studio _„22.95 

Ghostbusters ™1 1 .95 



Panasonic^ 



10911-11 
PRINTER 

Now at 192 GPS 

ONLY 

$179 



Panasonic^ 

Office Automation/f 



10921 
PRINTER 

ONLY 

$289 



JOYSTICKS 

(^K)TE; Prices good wtien 
with any other purchase) 

V»lco Super 3-Way 19.95 

Unite Joystick 5.95 

Starlighter _..8,95 

Tac3 _ 10.95 

Silk Stick _ - 7.95 

Epyn 500XJ 12.95 

MICROPROSE 

Silent Service 22.95 

F-15 Strike Eagle _.22.95 

Decision In Desert „.25.95 

Kennedy Approach 16.95 

Crusade In Europe 25.95 

Connict In Vietnam 25.95 

Top GLmer , 1 6.95 

OPTIMIZED SYSTEMS 

Basic Xe -44.95 

Action 44.95 

Mac 65 XL 44.95 

Basic XL 34.95 

Al Tool Kits Each _19.95 



ATARI 

400 / 800 / 

XE/XL 



-, SINCE 1982 

t.omput(/lbUitt/. 

T^.o/iiumet^lecttonlch 

P O. BOX 17882, MILWAUKEE, Wl 53217 

ORDER LINES OPEN 

Mon.-Fri. 9AM-9PM CST Sat. 11AM-5PM. CST 

TELEX NUMBER 9102406440 

(ANSERBACK = COMPUT MILW UQ) 



MISCELLANEOUS 

Flight Simulator 2 33.95 Print Driver Const. 

Universe 57.95 Set 16.95 

Strip Poker._ 2t.95 TAC 26.95 

Micro League Jupiter Mission 1999-32.95 

Baseball 25.95 Blue Max 2001 _19.95 

Harcout/Brace SAT 59.95 Championship 

General Mgr. MLB 25.95 Loderunner.— , 19.95 

Fight Night , 18.95 Home Accountant 30.95 

Hardball 18.95 Apshai Trilogy 14.95 

Triple Pak , 14.95 Summer Games 14.95 

Leader Board 24.95 Worid Karate 

Tourn Disk/Leader Ctiampionship 19.95 

Bd 14.95 R Tlime 8 Cart 54.95 

Executive DiskA.eader Halley's Project 10.95 

Bd_ -14.95 Mastertype 25.95 

Tenth Frame 27.95 Word Attack 32.95 

Inliltrator 19.95 Math Blaster 32.95 

Bop-n' Wrestle 19.95 Spell It 32.95 

SuperHuey 16.95 DLM TeacNng CALL 

Home Planetarium -27.95 Spinnaker _ -CALL 

Atariwrlter Plus —.39.95 Hardball 18.95 

MLB Boxcore/Stat _16.95 AceOIAces. 18.95 

SPYVSSPY1S2 10.95 Ultima 2 28.95 

Video Vegas 50.95 Mrca Mach II 20.95 

Blazing Paddles -22.95 Ttie Pawn 25,95 

Ace o( Aces 18.95 Trailblazer 19.95 

urhk"""^"" 17 95 SYNAPSE 

Hitchiker 17.95 „ , .,„„.. 

WIshbringer 1 1 .95 fync'lc 32.95 

Ballyhoo _ -55.95 Synfile . 32.95 

Moonmist 22.95 Lodenjnrwr-s Rescue..- 9.95 

Leather Goddess 22.95 Syncalc Templates 16.95 

Hollywood Hijinx 22.95 ^--T Ull 

Zork Trilogy - 39.95 Mindwheel 25.95 

Lurking Horror. 22.95 Brimstone .55.96 

Station Fall- 22.95 




For Technical Into, Order 
Inquiries, or for Wise. Orders 

414-357-8181 
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1050 DRIVE MECHANISM - $69.95 



800/400 MODULES 
NEW PARTS COMPLETE WITH IC'S 

$ ^^50 • 800 Main Board 

V^ • 800/400 CPU with GTIA 

^J EA. •800 10K "B" O.S Moduie 
•16KRAM CX853 
All Modules •400 Main Board 
Complete •SOO Power Supply Board 
Willi ir'c •''00 Power Supply Board 
• 800XL Modulator 

INTEGRATED CIRCUITS 
$>I50 

/ I CPU CO14806 

*^ FA POKEY. , . . C012294 

• PIA C014795 

ROM....C012399B QJIA C0 14805 

ROM....C012499B ANTIC... C012296 

ROM....C014599B CPU CO10745 

DELAY . , CO60472 PIA C010750 

CPU.... 6507 CPU C014377 

TIA CO10444 PIA 6532 

600XL64K UPGRADE 

Easy to install internal modification 
allows you to hook up a disk drive and 
run ail 800XL software. Kit includes all 
parts and detailed instructions. 
Soldering required to install 3 jumpers. 

$29.95 



NEW INTERNAL SUBASSEMBLY 
COMPLETE AND TESTED. INCLUDES! 
HEAD, STEPPER ETC. JUST PLUG IN! 



ATARIWRflER CARTRIDGE 
Popular cartridge version turns 
any 8 bit Atari into a powerful 
word processor. Disk drive 
supported but not required. 
Manufactured by Atari. $39.95 

MISC. HARDWARE 

1060 Track Sensor . . $6.60 

1050 ROM IC $13.60 

1050 2793 FfX $19.60 

1030 Power Pa=k $12.50 

600XL 64K Upgrade . . $29.95 
Fastctiip for 800/400 . . $16.60 
1050 Stepper Motor . . . $14.50 

820 Printer Mech $14.50 

860 or PR printer cable $12.60 

P: R: Connection $66.00 

Atari Joystick $7.00 

Atari Paddles CX30 . . , $6.60 
Joystick cable 95 

BOARD SETS 

New Parts complete witfi IC's 
800 4 PIECE BOARD SET 
Includes 800 Main, CPU, 10K 
ROM and Power Board $28.60 

810 BOARD SET 
Sideboard with Sep. Power and 

Analog Boards $57.60 

400 3 PIECE BOARD SET 
Includes 400 Main, CPU and 
Power Board $19.60 



AMERICAN TECHNA- VISION [7 



MAIL OR[}£R AND REPAIR: 16338 INVERNESS ST., SAN LEANDRO, CA. 94679 

Buaness Adiess 2098 Pil>e Avaiue. Son Lsaidio, Ca. 94577 

wS A .< ORDERI We accept money orders, personal checks or C.O.D.s 

VISA, Master/Card okay. Credit cards restricted to purchases over $20 00 No 
personal checks on C.O.D. - Sfiipping: $4.00 shipping and handling on orders 
under $160.00. Add $2.00 for C.O.D. orders. In Canada total $6.00 for shipping 
and handling. Foreign shipping extra California residents include 6 V2% sales tax 

PrceB jytjim B oia/^ wmnul nii!«as. Sand SASE te Iroo pnco lisi Auri « ■ rnj taiimo* ol Atnr, Cop. 



REPAIR MANUALS 

SAMS Service Manuals (or the 
following units: 800, 800XL, 
130XE, 400, 1060 $19.60 ea. 
520ST Service Man. . . $37.50 

810 MODULES 

810 Side Board $29.50 

810 Side with Data Sep. $39.60 
810 Rear Power Board $26.00 

810 Analog Board $15.00 

810 Data Separator .. . $15.00 

820 PRINTER MECH. 

Complete subassembly 
includes print head, stepper, 
drive motor, belt etc. Just plug 
Inl $14.50 

CABLES / CONNECTORS 

13 Pin I/O Cable $5.95 

I/O 13Pin PC Mount . . . $4.50 
I/O Cable Plug Kit ... . $4.60 
ST Monitor Plug (Male).. $6.60 
ST 6' Drive Cable... $14.00 
Printer Interface $39.96 

850 BARE BOARD 

Witt! parts list $7.50 

(Includes hard to find crystal) 

EDITOR/ ASSEMBLER 

Cartridge only $10.00 

BASIC CARTRIDGE 

Basic Rev. "A" Cartridge works 
will all Atari Computers except 
ST. Includes manual. 
800XL Owners Notel Use this 
cartridge while programming to 
eliminate the severe errror in 
the built in "B" Basic. . . $10.00 



POWER PACKS 

Replacement transformer for: 
800/400, 810, 1050, 1200XL, 

1020 $14.50 

1030 Power Pack $12.50 

COMPUTER BOOKS 

Inside Atari Basic $5.00 

Atari Basic Ref, manual $5.00 
Advanced Programming $13.95 

Hackerbook $5.00 

400/800 Ref. Guide . . $20.00 
Basic Atari Basic $16.95 

CARTRIDGE MAKING 
SUPPLIES 

16K Eprom Board with case, 

uses tTO 2764's $6.96 

10 or more $4.96 ea 

16K Eprom Board with case, 

uses one 27128 $6.96 

10 or more $6.96 ea 

PROBURNER EPROM 
PROGRAMMER 

Eprom burner in a cartridge, 
works with 800/400 & XL/XE 
computers. Programs 2716, 
2732, 2732A, 2764, 27128, 
2632 + EEPROMS 2816A, 

52B13, 62B33 $145.00 

2764 EPROM $3.95 

SOFTWARE 

Miner 2049er Cart $10.00 

Q'Bert Cartridge $10.00 

Pac-Man Cartridge . . . $5.00 

Donkey Kong cart $5.00 

Eastern Front cart. . . $6.00 
Springer Cartidge $5.00 



CALL TOLL FREE 
1-800-551-9995 



SERVICE RATES 

Flat Service Rates below 
include Parts & Labor, 60 
Day Warranty 

800 $39.50 

850 $39.50 

810 $69.50 

800XL $49.50 

1050 $85.00 

800 KEYBOARD $25.00 

Include $7.00 return shipping 
and insurance. Include $4.00 
shipping for 800 keyboard only 

10K Rsv. "B" Upgrade 
for older BOO/400's 

End printer/disk drive timeouts 
and other errors. Many new 
programs require Rev. B. Type 
the following peek in Basic to 
see if you have Rev. B. 
PRINT PEEK(58383) 
If the result equals 56 you 
have the old O.S. Three Chip 

ROM set with insir $7.50 

Complete 10K module . . $9.50 

GTIA Ugrade for 800/400 

Add additional graphics modes 
and be compatible with the 
latest software $4.50 

810 Drive Upgrade 
Change to Rear/Analog design 
for best performance $42.50 



IN CALIF. OR 

OUTSIDE U.S. 

CALL 415-352-3787 



CIHCLE #106 ON READER SERVICE CARD 



Attention Programmers! 




ANALOG Computing is interested in programs, articles, and software review submissions deal- 
ing With the Atari home computers. If you feel that you can write as well as you can program 
then submit those articles and reviews that have been floating around in your head awaiting 
publication. This is your opportunity to share your knowledge with the growing famil'v of Atari 
computer owners. 

All submissions for publication, both program listings and text, should be provided in printed 
and magnetic form. Typed or printed copy of text is mandatory and should be in upper and lower 
case with double spacing. By submitting articles to ANALOG Computing, authors acknowledge 
that such materials, upon acceptance for publication, become the exclusive property of ANA- 
LOG Computing. If not accepted for publication, the articles and/or programs will remain the 
property of the author. If submissions are to be returned, please supply a self-addressed stamped 
envelope. All submissions of any kind must be accompanied by the author's full address and 
telephone number. 



Send programs to: 
Editor, ANALOG Computing, P.O. Box 23, Worcester, MA 01603. 
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Castaway 




The island hides a secret 
in this text adventure. 



by Rick Graves 



From the moment I loaded my first Infocom adventure, 
I wondered what made it tick. I wondered what it would 
take to produce such a finely structured illusion. 

One day last year I sat at my Atari 800, eagerly anticipat- 
ing my monthly issue of ANALOG Computing. When it fi- 
nally arrived, I opened it and haphazardly scanned the table 
of contents, trying to decide which program to key in first. 
Out of the corner of my eye, I spotted an article entitled 
"Adventurous Programming," by programmer extraordinaire 
Clayton Walnum. To make a long story short, Mr. Walnum 
led me step by step through the adventure-creating proc- 
ess. I couldn't beheve it; it was easy. Once I understood what 
was going on inside an adventure, the difficulty was re- 
duced to creating good puzzles. Several months and end- 
less hours of debugging later, Castaway was complete. 
The plot. 
All you remember is a inidnight stroll along the deck of 
a ship, an alarm sounding, a muffled explosion, and warm 
waters quickly closing over your head. 

When you awaken, you discover you've washed ashore 
on a deserted island. You're alone, with no idea how you'll 
survive. 



You realize you must find a means of rescue as soon as 
possible, but while gazing upon the island, you sense that 
it holds some dark secret to discover. With renewed pur- 
pose, you rise to your feet. 

Typing it in. 

Listing 1 is the main program. It handles all player input 
and the appropriate responses. 

Listing 2 prints the room descriptions to disk. For each 
room in Castaway, one or more text files are created, so 
I suggest you save these programs on a clean disk. 

When BASIC has been installed, type Listings 1 and 2 
and save them. Be sure to check your typing with the "Ba- 
sic Editor." 

Load and run Listing 2. The message Creating Room 
Descriptions will appear. After a few minutes, the READY 
prompt will reappear on the screen. 
Playing Castaway. 

After the room descriptions have been created, run List- 
ing 1. You'll be asked to wait, while the program initializes 
itself. After a few seconds, you'll be in the opening room. 

In Castaway, the video screen is separated into two areas. 
The top line of the screen displays your current location, 
your score and the number of actions you've attempted so 
far. The remainder of the screen is used to display room 
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continued 



descriptions, to accept player input and to print necessary 
output. The top line of the display will remain intact, while 
the rest scrolls continuously miderneath. 

As you enter each new room, its description will be print- 
ed (this isn't always the case, as explained later), followed 
by the phrase You see;. Under this heading appears a list 
of the takeable objects, if any, currently in the room. There 
are other objects in individual room descriptions. Some can 
be manipulated with certain verbs, others can't. 

Following the hst of takeable objects, player input is ac- 
cepted. Like most text adventures. Castaway only under- 
stands two-word sentences of the Verb-(space)-Noun form. 
You'll have to experiment to determine which verbs and 
nouns Castaway understands, but that's all part of the fun. 
If you enter an invalid sentence, or a nonexistent verb or 
noun. Castaway will inform you immediately. 
Commands. 

Castaway recognizes certain special commands that are 
vital to any adventure. 



Movement Commands: 

N-North NE-Northeast 
S-South SE-Southeast 
E-East NW-Northwest 
W-West SW-Southwest 



U-Up 

D-Down 




B^ J^The Northeast 

ATARI 
Computer Fair 





Columbus Day Weekend 
SATURDAY & SUNDAY— OCTOBER 10 & 11 



SATURDAY - 10:00 AM to 6:00 PM GENERAL ADMISSION S5.00 

SUNDAY — NOON to 6:00 PM UNDER 12 W/PARENT S3.00 

STUDENT & USER GROUP DISCOUNTS WITH APPROPRIATE IDENTIFICATION 

AT THE CENTRUM IN WORCESTER 

WORCESTER, MASSACHUSETTS 



1987 



, ou< 



atea 



,p\aVS 



063 









sy>\n9 



.a.s-'^^' 



rtes\s- 



Ooo( P' 



nie^ FOR INFO 

CALL (617) 527-4952 




CENTRUM iii ^¥0AC£5T£R 



Other commands used in Castaway are: 

Inventory or I Prints the objects currently in your possession. 

Lool< or L Reprints the room description and the 

takeable objects in case you forget the room's details. 

Score Prints your current rank and score. 

Quit Exits Castaway. 

Restart Restarts the game from the beginning. 

Save Saves your current game status. 

Restore Restores a game that's been saved. 

Verbose Verbose room descriptions. 

Sfief Brief room descriptions. 

Saving and restoring games. 

Castaway lets you save your cm-rent game status and lo- 
cation to disk. This is particularly useful when you're about 
to attempt something dangerous. To save your game, type 
SAVE and hit RETURN. Be sure the disk you want the game 
saved on is in the disk drive, because no prompts are giv- 
en. When the operation is complete, the game is reentered 
at the point at which it was saved. 

To restore a previously saved game, type the command 
RESTORE and hit RETURN. The game will be reentered 
at the point where you last saved your game status. As with 
the SAVE command, make sure the desired save disk is in 
the disk drive. 

The BREAK key has been disabled, so if you want to halt 
the program, simply hit the SYSTEM RESET key 

Room descriptions. 

Castaway lets you select between verbose and brief room 
descriptions. When the program is set to verbose, the en- 
tire room description, as well as the takeable objects list, 
is displayed. If set to brief, the program will only display 
the takeable objects. This command comes in handy when 
you're moving through familiar territory and want to speed 
things up. 

For verbose descriptions, enter the command VERBOSE, 
and for brief, type BRIEF. 

Hints for solving Castaway. 

(1) Make a map of the island as you go along. Some of 
the areas can be pretty confusing, so you might get lost. 

(2) Save your game frequently— preferably before you at- 
tempt something that might be hazardous to yom- health— or 
you'll have to start over. 

(3) Try anything. You might be suprised to find out what 
you can do. 

(4) Watch your score. It can be used as a measure of your 
progress. 

(5) Examine everything. Clues have been included in cer- 
tain descriptions to help you along. 

(6) Don't get frustrated. If one verb doesn't work, try to 
think of a synonym. 

Credits. 
I'd like to thank Clayton Walnum for getting me started. 
Castaway was developed around the adventure he used as 
an example in his adventure series. Needless to say, with- 
out his help and expertise, this adventure wouldn't have 
been possible. 

Apologies. 

For those readers who've already taken a look at the list- 
ings, you know what I'm about to apologize for. Some parts 
of Listing 1 and almost all of Listing 2 has been encrypted. 
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I know this means hours of tedious typing, but I have a good 
reason. In adventures that aren't encrypted, it's easy for the 
reader to go through the Usting and pick out clues. Encryp- 
tion cuts down on this to some degree. 

Well, do your best. Castaway can be solved. Believe me, 
I've done it many times. 

ANALOG Computing will not give adventure hints over 
the phone. If you'd like a copy of this game's solution, send 
a stamped, self-addressed envelope to; Castaway Solution, 
c/o ANALOG Computing, P.O. Box 23, Worcester, MA 
01603. H 



ObUJWf !M jMNbhf 



■:E=H18:5=H13 



Rick Graves is a student at the University of Oklahoma, 
majoring in Aerospace Engineering. He's been programming 
on his 800 /or about four years. He enjoys puzzie-oriented 
software immensely and is looking forward to programming 
on a 520ST. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the "BASIC Editor II," 
in issue 47. 



Listing 1. 
BASIC listing. 

MO 10 REM XXXXKXXXKMKKXKltKKKKXKKKKlCl t 



PJ 20 REM * 

ZD 30 REM » 

LK 48 REM « 

JR 50 REM * 

HG 60 REM * fl.M 

FO 70 REM * 



a 

Castaway Ui.2 » 

12/20/86 * 

by Rick Graves » 

A.L.O.G. CoMputing * 

it 

m 80 REM XXKXXXXXXXXXXXXMXXXXXXXXXX 
BG 90 REM , . . 

UU 100 CLR :GRAPHICS 8:? "initializing, p 

lease wait . . .":GOTO 4498 
ftF 118 flzUSRCADRtCRYPTSJ ,fiDRtTEXTSJ ,LENCT 

EKT$)) ; RETURN 
J5 120 flz:U5R (ADR tCRYPTS) , ADR (TEXTS), LEMCT 

EKTS)):? :? TEXTS:RETURK 
MM 130 FOR X=N1 TO 1008: NEXT X : RETURN 
KH 148 POKE N16,112:P0KE 53774, 112 : RETURN 
lU 150 N=N8:5=N0:E=N8:W=N0:U=NO:D=Ne:NE=N 

O:5E=NO:SW=NO:NW=N0:GO5UB (R00ML0C-N4) 

*N10+158 : G05 UB 3968! RE TURN 
KX 168 TFHTS=" tJ!T,TJrXli|.MJ " ! NErN12 ! E-N6 : 5E 

zN26'''N2 ' RETURN 
FJ 178 TFHTSz-m TniJIU JJl J " ! H-N5 ! ErN28 + N4 ! 

RETURN 
DM 180 TFWTgr-nrTTr.irrJUiMrt-HJm" ; N-N7 ! NE=N 

7 : E=N8 : 5E=N20 + N4 : S = N7 : SW=N7 ! M=N6 : NW=N7 

* RETURN 
HZ 198 TFWTg^.TTgT;T!irTiA*IH.Mim" ! N-N14 ! NE- 

N8:E=N8:SErN8:S=N28+N3:5W=N8: W=N7:NW-N 

8 :U = N9: RETURN 

g« 208 TFHTS-" pni«iHJl " 
IH 218 TEXT$="[| 
QS 220 TEXTS: 

: NW=H15 ! RET URN ^ 

Ift 230 jEKJ$="irESMB-3i' 

W=N5 : RETURN 

MU 240 TPHTS-'- fimriTTI" ! Nz:N17 ! RETURN 

IW 258 TEXT$ = "aiSiflinaE!H":N = 37:5 = N8:R 

ETURN 

SB 260 TEXT$="Bnimi JlU J^UJIX" : U = H19 ! 5E=N1 

IT 270 TEXT$="a3!HHHIS3":N = N20 + Nl:NW=N2 
OiRETURN 



Uq!b!Usff 
QfbSlTqsj 



:D=N8:RETURN 
:D=Nil:RETURN 

:5=N28+N5:U=N18 



:NE=N17:SE=N7:5 



Tusbxilvu 
■liM 



I" !W=N17: RETURN 

E=N2e:D=N15:RE 



OL 280 TEXTS="C 

:5W=N12: RETURN 

MH 290 TEXTgr' TTFT-.-- 

EM 388 TEXT$ = "|iJ±U*l 

TURN 
EH 318 TEXT$ = "03iIIH!l3!H":E=N20 + Nl:SE=N16 

! W=Ni9 : RETURN 

OP 328 TFXTSz" b<.T.lJ'4litt iHi " ! 5rN16 ! M=N2e ! RE 

TURN 
OR 330 TEXTS = "iI!IiSIIHiBB":E=N20 + N3:5 = N2O 

+ N7 : NW=N5 : R ETURN 

JB 348 TEXT$="[!H3En3SiHHiSnil":N=N7:NE=N 

8:E=N2e+N4!5E=N2e+N3:5=N28+N3!5W=N28+N 

3 : W=N28+N2 ! NW=N28+N3 ! RETURN 
FI 358 TEXT$ = "[IH3aiIHaBiHiE" ! N=N8 : NE=N 

20+N4:E=N6! 5E=N28+N4:5=N28+N9!SW=N28+N 

4 ! W=N28+N3 : NM=N7: RE TURN 
GK 368 TEXT$="niniI3!IB":N=Nll:D = N28 + Nll:R 

ETURN 
KH 370 TEXT$ = "[a!SaBDrEE":5=N28+N13!RETUR 

SM 388 TEXTS = "aaiE!naDnK]""!N=N28 + N2!E= 

N2e+N8 : RETURN 

5F 398 TEXT$="[IEH3E":N = N28+N3:W=N20 + N7:R 

ETURN 
FN 400 TEXT$ = "UL!I!i«lil2n:iJ" ! N = N28 + N4 : E = N2 

8 + N18 : RETURN , 

YK 418 TFHT$ = " I JT»M>l!riJ" ; H-N28tN9 : RETURN 
HA 428 TFXTSz" lil.fJS'Mllt--J " ! UZN28 + N5 : D = N28+ 

N12 ' RETURN 
m 438 ■ TEXTSr-CESHaailB" ! U = N28 + N11 : E=N2e 

+N13 : 5E=N28+N16ll=N28+N15 : RETURN 
OP 440 TEXT$ = "ECHS33!IB'"!U = N28 + N6!5 = N28+ 

N16 ! 5M=N2e+H15!WEH2e+N12 : RETURN 
GZ 450 TEXTS^-UliaXlLnilJ" : E=N20 + N15 : RETUR 

Kfl 460 TEXTS = "CEH[^33!IE":U = N20 + N14:N=N20 

+N15 : NE=N28+N13lE=N2e+N16 : RETURN 
HI 478 TEXTS="[!n3S33!rB":N = N28 + N13!W=H20 

+N15 : NH=N28 +N16! RETUR N 
DC 480 TEXTS = "|lH]IHBnE"!5 = N14: RETURN 
EU 498 RE5T0HE 4590:FOR X=M1 TO NVlREAD A 

:UCX)=A:NEXT X ^ . 

RL 588 F8R X=N1 TO 72:READ A : LOCS tXJ =CHRS 

CflJ SNEXT X ^ ,.„. 

ZI 510 FOR X=N1 TO 35 : READ A ! SPCS tX) =CHRS 

FO 528'f8R X=N1 TO 35 : READ A ! CRYPTS CX) =CH 

R$CA) :NEXT X * „ ^ 

KF 530 FOR X=Nl TO NN-Nl ! READ TEXTS, A: 0=5 

Z-LEN CTEXTS) : ITEMS CX»5Z-SZ + N1, X»5Z-Q) = 

TEXTS:ITEMLOCtX)=A:NEXT X 
TF 540 FOR X=Ni TO N10 ! SCFLG tXJ =N0 ! NEXT X 
GM 550 FOR X=H1 TO N6 : INU tX) =N0 : NEXT X : IN 

gCNl)=Nl „^^^ ^ 

DC 560 RESTORE 4720:F0R X=N1^T0 35:READ A 

SPOKE 1742+X,8:DLS(X)=CHRStA) :NEXT X 
WN 570 DLS£N5,N5J=CHRSC2e6) :DLSCN6,N6)=CH 

QC 588 DLSCN9,N9)=CHRSC5CRL+48) :DLSCN10,H 

18)=CHR$t5CRH) 
0« 598 GRAPHICS N8:G0SUB 148 ! DLH=INT (ADR C 

DLSJ/256J !DLL=ADRfDLS)-DLH»256 
AT 688 DLS(34)=CHR$fDLL) :DLS(35)=CHRStDLH 

>:P0KE 559,N8!P0KE 568,DLL:P0KE 561, DL 

H:P0KE 559,34 
V5 618 TURN=TURN+N1 
XU 620 GOSUB 3670 
NO 638 IF KIL LFLG TH EN 4880 
IP 640 ' :' " ^ ' M I »rjJ.] :";IT=:N0:FOR X=N1 TO 

NN-NisIF ITEMLOCCX) OROOMLOC THEN NEXT 
X:GOTO 660 
10 650 TEXTS=ITEMS(XKSZ-SZ+N1,X«SZ) : GOSUB 

110:? '■ ■■JTEXTS:IT = N1!NEXT X 
HM 668 IF NOT IT THEN ? "Nothing." 
FZ 678 IF INS AND SWCH THEN 685 
OU 680 GOTO 710 
10 685 IF CR0OMLOC=5 OR R00ML0C=12 OR ROO 
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''^' ML0C = N16 OR R00ML0C = N20 + K1 OR ROOMLOCz 

N20+N2J AND ITEMLOC tl3J =-Nl THEN 4210 
U& 698 IF ITEML0C(N19J=-N1 OR ITEMLOC CN19 
)=ROOMLOC OR tITEML0C(Ni9)=-N3 AND ROD 
ML0C=N19) THEN 708 
PL 695 GOTO 718 

CO 700 TEKTS="Uif lusbotnjuufs! jtiivnnjOh- 
iCVU! ! ! ! ! ! ItpnfUi job! jtlCHpdl joh! jutit 
jhObH/":G0SUB 120 
HL 710 G05UB 150:SOUND NO, N20, NIO, N8 : FOR 
X=N1 TO NIOJNEXT K:SOUND NO, NO, NO, NO : I 

TEML0Ct32)=R00ML0C 

UN 720 TRAP 4420!? :? " UliT-.V.MV ! ! TMPIIT i 
NPS!lF R00ML0O30 AND R00ML0CO34 AND 
R00ML0CO37 THEN BRTH=BRTH + N1 
SG 730 IF BRTH>N4 THEN BRTH=NO:GOTO 4080 
PF 740 IF INP$="" THEN TEKTS="XibuG" ! GOSU 

B 120:G0T0 670 
NO 750 IF R00ML0C=N8 OR R00ML0C=N9 OR ROO 
MLOC=N10 OR R00ML0C=N11 OR R00ML0C=28 
THEN ITEML0CCN8)=-R00ML0C 
GH 760 IF LIT THEN CNTR=CNTR+N1 ! IF CNTR>N 
3 THEN CHTR=N0:LIT=NO!TEKTS="B!hVtu!pg 
! X joe ! CMpxt ! pvu ! zpvs ! nbudi/"' : G05UB 120 
BI 770 IF R00ML0O30 AND R00ML0CO34 AND 

R00ML0CO37 THEN GOSUB 4130 
FM 780 IF INP$="LOOK" OR INP$="'L" THEN 61 


RJ 790 IF INPS="QUIT" THEN 4480 
WH 800 IF INP$="YELL" THEN TEKT$="BbSSShh 
hhiiiiiiii="!G05UB 120 : TURN=TURN+H1 : GO 
TO 670 
XX 810 IF INPS="RESTART" THEN lOO 
CP 820 IF INPS="INVEHT0RY" OR INP$="I" TH 

EN 3560 
ftZ 830 IF INP$="5C0RE" THEM GOSUB 3820 : GO 

TO 670 
IT 840 IF LENCIHPSJ=N1 OR LENCINPSJ=N2 TH 

EN GOSUB 4170!UB$=INP$:GOTO 980 
HI 850 IF INP$="BRIEF" THEN BRIEF=N1 : TEXT 
$="Csjfg!EftdSjqujpot/": GOSUB 120: GOTO 
670 
PE 860 IF INP$="UERBOSE" THEN BRIEF=N0:TE 
XT$="WfSCptf!EftdSjqujpot/": GOSUB 120: 
GOTO 670 
AX 870 IF INP$="SAVE" THEM 4260 
OE 880 IF INP5="REST0RE" THEM 4350 
yZ 890 A=U5RCADRtSPCSJ,LEMCINPSJ,ADRtINP$ 

)3 
»X 900 UBS=INP$(N1,A) :NNS=INP$CA+N2J 
Vl> 910 IF LENtgB$)=H2 THEN VB$CN3J=" " 
PW 920 Z=U5RtADRCL0C$),ADHCUB$J,ADRCgERBS 
J ,LENtyERB$)) 

Xfi 930 Y=U5RCADRtL0C$],ADR(NN$],ADRCM0UN$ 

] ,LENCN0UN$)) 
PH 940 IF MOT z THEM ? :? "I don't under 

Stand that verb.":GOTO 670 
XO 950 IF MOT Y THEN ? : ? "I don't under 

stand that noun,":GOTO 670 
*P 960 Z=UCZ) 
LU 970 ON Z GOTO 1200,1310,1410,1470,1560 

,1630,1710,1850,1990,2100,2560,2670,28 

20,2920,3110,3220,3290,3340,3440,3520 
LM 980 IF UB$="D" AND R00ML0C=25 THEN BRT 

h=no:go5UB 4100:gosub 4i3e 

UF 990 IF UBS="5" AND R00ML0C=26 THEN BRT 

h=no:go5ub 410o:gosub 4130 
|«p 1000 if gbs="e" amd r00ml0c=34 them br 

TH=N0!G0SUB 4100:GOSUB 4130 
PM 1010 IF UB$="ME" AMD R00ML0C=M12 AMD I 

TEML0CCM5J=-N2 AND 5CFLGCN13 0N1 THEN 

GOSUB 3630 
SP 1020 IF UBS="D" AND R00ML0C=31 AND NO 

T SCFLGtN4J THEM TEXTS="Ui f ! spdl ■ it ■ jo 

!uif !xbz/":G0T0 1040 
PK 1030 GOTO 1050 

Eft 1040 GOSUB 120 !TURN=TURN+Nl: GOTO 670 
a:C 1050 IF yB$ = "E" AMD R00ML0C=27 AMD NO 



T OPl THEN TEXT$="Uif!epps! jtldMRtfe/" 

! GOSUB 120: GOTO 670 
m 1060 IF yB$="N" AMD NOT SCFLG(N3} AND 

R00ML0C=N14 THEN 1080 
RH 1070 GOTO 1090 
Ni> 1080 TEXT$="Zpv!dbD(u!gpsdf !zpus!xbz!u 

ispvhi luif ! iUbOhMf !pg! wjoft/":GOTO 104 


yW 1090 IF yBS="N" AND N THEM ROOHLOC=N:G 

OTO 610 
10 1100 IF yBS="S" AMD S THEN R00ML0C=S:G 

OTO 610 
ML 1110 IF VB$="E" AND E THEM ROOMLOC=E!G 

OTO 610 
IS 1120 IF yBS="W" AND M THEN ROOMLOC=W:G 

OTO 610 
OJ 1130 IF VBS="U" AND U THEN ROOMLOC=U!G 

OTO 610 
UB 1140 IF VB$="D" AND D THEN ROOMLOC=D:G 

OTO 610 
Ufl 1150 IF yBS="NE" AMD ME THEN ROONLOCrN 

E!GOTO 610 
ML 1160 IF VBS="NW" AND NM THEN ROONLOC=N 

M:GOTO 610 
JfH 1170 IF yB$="SE" AND SE THEM ROOMLOC = S 

E;GOTO 610 
KX 1180 IF yBS="SW" AND 5M THEN ROOMLOC=S 

H:GOTO 610 
\m 1190 ? :? "You can't go that way!":TUR 

M=TURM+Nl:GOTO 670 
CE 1200 TEXT$="Zpv!dbO(u!pqfoIUibU=" 
NO 1210 IF ABSCITEMLOCCYJJOROOMLOC AND I 

TEMLOCtYJO-Nl AND ITEMLOC f Y)<>-N2 THE 

N TEXT$ = "Zpv ! dbo (U ! t f f ! UibU ! i f sf =" 
JO 1220 IF R00ML0C=27 AND Y=N4 AND OPl TH 

EN TEXT$="Uif Icbdliepps! jtlbnsfbezipqf 

0/" 

JT 1230 IF R00ML0C=27 AND Y=N4 AND NOT 

PI AMD UNLl THEM 0P1=N1 : TEXT$="Ui f ! Cbd 

1 lepps! jt!opx!pqfO/" 
TZ 1240 IF R00ML0C=27 AND Y=N4 AMD MOT 

PI AND NOT UMLl THEN TEXT$="Ui f ! Cbdl ' 

epps! jtitfdvsfHzrupdlfe/" 
00 1250 IF Y=27 AMD 0P3 AND tITEMLOC (H19) 

=-Nl OR ITEMLOC £N193=RO0MLOC) THEM TEX 

TS="Uif iqbOfMl jt ! bMSf bez ! pqf o/" 
IS 1260 IF Y=31 AND CITEMLOC CY) =-Nl OR IT 

EMLOCCYJ=ROOMLOC) AND 0P2 THEM TEXTS=" 

Uif !e jbsz! jt!bMSfbez!pqfO/"' 
55 1270 IF Y=31 AND CITEMLOC tYJ =-Ml OR IT 

EMLOCtYJzROOMLOCJ AND NOT 0P2 THEN OP 

2=Nl:TEXTS="Zpv!pqfoluif inpMeziejbsz/" 
M 1280 IF Y=27 AND MOT 0P3 AMD CITEMLOC 

CM19J=-M1 OR ITEMLOC CM19)=R00ML0CJ THE 

M 0P3=Nl:G0T0 1300 
ET 1290 GOSUB 120 : TURM=TURN+N1 : GOTO 670 
FO 1300 TEXT$="Uif iqbOfn! jt!opx!pqfD/":GO 

TO 1290 
fli 1310 TEXT$="Zpu!dbOCu!dMptf !uibu=" 
m 1320 IF AB5tITEML0C{YJ><>R00ML0C AND I 

TEMLOCfYJO-Hl AND ITEMLOC C^J 0-M2 THE 

M TEXTS="Zpv!dbOfu!tff .'Uibu! ifsf=" 
RH 1330 IF R00ML0C=27 AND Y=N4 AMD NOT 

Pl THEN TEXTS="Uif !cbdl!epps! jtlbMSfbe 

zldMptfe/" 
CT 1340 IF R00ML0C=27 AND Y=N4 AND OPl TH 

EN OPl=N0:TEXTS="Uif icbdl lepps' jt 'OPX' 

dMptfe/" J ■ r . 

V5 1350 IF Y=31 AND CITEMLOC tYJ r-Hl OR IT 
EMLOCCY)=ROOMLOC) AND NOT 0P2 THEN TE 
XTS="Ui f ! e jbsz r jt ! bHSf bez ! dMptfe/" 

RA 1360 IF Y=31 AND CITEMLOC CYJ =-Nl OR IT 
EMLOCCY)=ROOMLOC) AND 0P2 THEN OP2=N0: 
TEXTS="Zpv ! dMpt f ! ui f ! npnez ! e jbsz/" 

Bft 1370 IF Y=27 AND NOT 0P3 AMD CITEMLOC 
CN19J=-H1 OR ITEMLOC tM19)=R00ML0CJ THE 
M 1400 

DB 1380 IF Y=27 AND 0P3 AND CITEMLOC CM19J 
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z-Nl OR ITEML0CCM19J=R00ML0C) THEN 0P3 

=N0 : TEXT$="Ui f ! qbo f m! jt ! opx ! dHpt f e/" 
EU 1390 G05UB 128 :TURN=TURH+N1 : GOTO 570 
BD 1400 TEXT$="Uif IqbOfM! jt!bMSfbez!dMptf 

e/":GOTO 1390 
TV 1410 TEXT$="Zpu!dbOtu!Mpdl !UibU=" 
NX 1420 IF fiB5CITEML0CCV))<>R00MLpC ftHD I 

TEML0C£Y)<>-N1 ftND ITEMLOC CYJ <>-M2 THE 

N TEKTS="Zpu ! dbo tu ! t f f ! UibU ! i f Sf =" 
m 1430 IF R00ML0CZ27 AND Y=N4 fiND NOT U 
■ NLl AND ITEML0CtH12)=-Nl THEN TEXT$="U 

i f Cbdl ! epps ! jt ! bHSf bez ! Mpdl f e/" 
HZ 1440 IF R00ML0C=27 AND Y=N4 fiND UNLl ft 

Ht> ITEML0CCN12J=-N1 THEN UNL1 = N0 : TEXTS 

="Uif icbdl iepps! jtlopxlMpdlfe/" 
Zft 1450 IF R00ML0C=27 ftND Y=N4 AND ITEMLO 

CCN12JO-N1 THEN TEXT$="Zpy ! epo tU ! ibwf 

"bozllfzt/" 
EO 1460 G05UB 120 :TURN=TURN+N1 : GOTO 670 
RY 1470 TEXT$="Zpvldb0tu!V0«pdl!UibU=" 
OP 1480 IF ftB5CITEMLOCCY3)<>ROOMLpC AND I 

TEML0C(YJ<>-N1 AND ITEMLOC CYJ <>-N2 THE 

N TEXT$="Zpv ! dbo £u!tff! UibU ! ifsf=" 
JU 1490 IF R00ML0C=27 AND Y=N4 AND UNLl A 

ND ITEMLOC tN121=-Nl THEN TEXT$="Ui f ! Cb 

dl iepps! jtlbHSfbezruohipdlfe/" 
RL 1500 IF R00ML0C=27 AND Y=N4 AND NOT U 

NLl AND ITEML0CtN12)=-Nl THEN UNL1=N1: 

GOTO 1530 
YQ 1510 IF R00ML0C=27 AND Y=N4 AND ITEMLO 

CCN12)<>-N1 THEN TEXT$="Zpv ! epo Cu ! ibwf 

EE i520'GO5UB 120 : TURN=TURN+N1 : GOTO 670 
«M 1530 TEXT$='"Uif!cbdl iepps! jtlopxlVOMpd 

LZ 1540 IF 5CFLGCN23 0N1 THEN SCFLGCN2)=N 

l:SCORE=5CORE+N10:GOTO 1520 
OU 1550 GOTO 1520 

AE 1560 TEXT$="Zpv!db0tu!xfb5!UibU=" 
LJ 1570 IF ABSCITEMLOCtYJJOROOMLOC AND I 

TEMLOCCYJO-Nl THEN TEXTS="Zpv i dbo Cu ! t 

f f !uibUi ifsf=" . ., 

IZ 1580 IF ITEML0CCY)=-N2 THEN TEXT$="Zpv 

!bsf ibMSfbeziXfbSJOhiUibU/" 
IH 1590 IF Y=N5 AND ITEMLOC CYJ =-Nl THEN I 

TEML0CCYJ=-N2:TEXT$="Zpv!opx!dMptfMZ!s 

ftfnCMf ibihiptu/" 
LE 1600 IF Y=N16 AND ITEMLOC CYJ =-Nl THEN 
ITEMLOC CYJ =-N2:TEXT$="Zpv!bSf! opx ixfbs 

jOhiUif IhphhMft/" 
TT 1610 IF ITEMLOCCYJO-Nl AND ITEMLOC CYJ 
0-N2 THEN TEXT$="ZpviepoCui ibwf iuibu= 

EG 1620 GOSUB 120 : TURN=TURN+N1 : GOTO 670 
UK 1630 TEXT$="ZpvidboCuiSfnpwf luibu=" 
OH 1640 IF ABSCITEMLOCCYJJOROOMLOC AND I 
TEMLOCCYJO-Nl AND ITEMLOC CYJ <>-N2 THE 
N TEXT$="Zpv!dboCu!tf f !uibu!ifsf=" 
RO 1650 IF Y=N5 AND ITEMLOC CYJ =-Nl THEN T 
EKT$='"ZpvibsfoCuixfbs johiuif icfeitif fu 

MV 1560 IF Y = N5 AND ITEMLOC CYJ =-N2 TI1EN I 
TEMLOCCYJ=-Nl:TEXT$="ZpuiSfnpwf iuif icf 

BJ 1570^IF'"YrN16 AND ITEMLOC CYJ =-Nl THEN 
TEXT5 = "Zpv ! bs f Cu ! Xf bs job ! ui f ! hphhMtt/ 

FL 1680 IF Y=N16 AND ITEMLOC CYJ =-N2 THEN 
ITEMLOCCYJ=-Nl:TEXT$ = "Zpy!sfnpwf !Uif !h 
Dhhhift'qspnizpus! i ! ! ! ! ifbe/" 

UR 1690 IF ITEMLOCCYJO-Nl AND ITEMI^OCCYJ 
0-N2 THEN TEKT$="Zpv!epoCUiibWf !UibU= 

EC 1700 GOSUB 120:TURN=TURN+N1:G0T0 570 
KB 1710 IF ITEMLOC CYJ =-Nl OR ITEMLOC CYJ =- 
N2 THEN TEXT$="Zpv!bMSfbeziibWf!UibU=" 

AF i720°iF^CY=17 OR Y=18 OR Y=19J AND ROO 



ML0C=N19 AND NOT 5CFLGCN5J THEN TEXTS 

="Uif !C jseies jwft !2pu!bXbZ=":G0T0 1840 
m 1740 IF Y=N3 AND R00ML0C=27 THEN TEXTS 

="Zpv!dboCuie jtUWSC iuif iefbe/"!GOTO 18 

40 
FU 1750 IF Y=N15 AND CITEMLOC CN19J =-Nl OR 
ITEMLOC CN19J=R00ML0CJ AND IN5 THEN IN 

S=N0:GOTO 1810 
VC 1760 IF R00MLOC=N19 AND 5CFLGCN5J AND 

ITEMLOC CYJ =-N3 THEN 1810 
EV 1770 IF Y=28 AND ITEMLOC CYJ =-R00ML0C T 

HEN TEXT$="Uif ig jsf icusotizpvsig johfst 

=":GOTO 1840 
GS 1780 IF Y=32 THEN TEKTS="Zpv i dbO CU i ep ! 

UibU="!GOTO 1840 
JT 1790 IF AB5 CITEMLOC CYJ J OROOMLOC THEN 

TEXTS = "Zpv i dbo CuitffiUibUii f Sf =" : GOTO 

1840 
Fa 1800 IF ITEMLOC CYJ =-ROOMLOC THEN TEXTS 

="Zpu!dboCu!ublf !uibU=":GOTO 1840 
RC 1810 L=N0:F0R X=N1 TO N6 : IF INU CXJ =N0 

THEN L=X:GOTO 1835 
FT 1820 NEXT K : IF NOT L THEN TEXTS="Zpy! 

dbo Cu i dbssz i boznpsf =" 
MI 1825 IF Y=N15 AND CITEMLOC CN19J =-Nl OR 
ITEMLOC CN19J=R00ML0CJ AND NOT IN5 TH 

EN IN5=N1 
TF 1830 GOTO 1840 
m 1835 ITEML0CCYJ=-N1:INUCLJ=Y:TEXTS="P1 

bz/" 
EQ 1840 G05UB 120 : TURN=TURN+N1 : GOTO 670 
YU 1850 TEXTS = "Lli jtibddpnqMjtift'opui job/ 

II 

HI 1850 IF ABSCITEMLOCCYJJOROOMLOC AND I 

TEMLOCCYJO-Nl AND ITEMLOC CYJ 0-N2 THE 

N 1880 
HE 1870 GOTO 1890 

AF 1880 TEXT$=:"Zpv!dboCuitf f iuibu! ifsf = " 
VY 1890 IF R00ML0C=31 AND Y=24 AND SCFLGC 

N4J AND ITEML0CCN15J=-N2 THEN TEXTS="Z 

pui ibwf ibMSfbeziepof iuibu = " 
GR 1900 IF R00ML0C=31 AND Y=24 AND ITEMLO 

CCN16J=-N2 AND NOT SCFLGCN4J THEN SCF 

LGCN4J=Nl:SCORE=SCORE+N10:GOTO 1960 
HH 1910 IF Y=26 AND CITEMLOC CN19J =-Nl OR 

ITEMLOC CN19J=R00ML0CJ AND INS AND SWCH 
THEN SWCH=NO:G0TO 1970 
K& 1920 IF Y=26 AND CITEMLOC CN19J =-Nl OR 

ITEMLOCCN19J=RO0MLOCJ AND NOT INS AND 
SWCH THEN SWCH=NO!GOTO 1970 
KN 1930 IF Y=25 AND CITEMLOC CN19J =-1 OR I 

TEMLOCCN19J=R0OMLOCJ AND INS AND NOT 

SWCH THEN SWCH=Nl:TURN=TURN+l:GOTO 570 
DC 1940 IF Y=26 AND CITEMLOC CN19J =-Nl OR 

ITEML0CCN19J=R00ML0CJ AND NOT INS AND 
NOT SWCH THEN SWCH=N1:G0T0 1980 
EM 1950 GOSUB 120:TURN=TURH+N1:GOTO 670 
UB I960 TEXTS="X jui ibo! joivnboi fggpsu-!zp 

Vinpwf iuif i ispdI-idMfbS johiuif iqbttbhf 

/":GOSUB 120:GOTO 610 
HZ 1970 TEXT$="Zpviuvsoiuif iusbotn juupsip 

gg/":G0T0 1950 
HZ 1980 TEXT$="UifSf ! jtiopisfbdu jpolgspn! 

Uif ! ! i ! i i ! ! iusbotn jUUps/":G0T0 1950 
8K 1990 TEXT$="ZpviepoCui ibwf iuibu=" 
FR 2000 IF ABSCITEMLOCCYJJOROOMLOC AND I 

TEMLOCCYJO-Nl AND ITEML0CO-N2 THEN T 

EHT$ = "Zpv i dbo CuitffiUibUii f Sf = " 
EF 2010 IF Y=29 AND ITEMLOC CYJ =-Nl THEN I 

TEMLOC CYJ =N0: ITEMLOC C21J=R00ML0C: GOTO 

2030 
PT 2020 GOTO 2050 
05 2030 FOR X=N1 TO N5:IF INV CXJ =Y THEN I 

NUCXJ=NO:TEXTS="Zpvsiupsdi ! ibticffo! fy 

Uj0hvjtife/":GOSUB 120:GOTO 610 
EU 2040 NEXT X:GOSUB 120:GOTO 610 
HR 2050 IF ITEMLOC CYJ =ROOMLOC AND CITEMLO 
.^ CCYJO-Nl OR ITEML0CCYJO-N2J THEN TEX 
W T$="ZpviepoCUi ibwf !uibU=" 



ANALOG COMPUTING 



OCTOBER 1987 / PAGE 23 



^ Castaway 



continued 



-Nl OR ITEMLOCCY)=:- 
R00ML0C:TEXT$="Plb2 

:TURM+Hl:GOTO 670 
:IF INycX)=Y THEN 1 



IX 2860 IF ITEMLOCCV) 

N2 THEN ITEMLOCCyj 

/":GOTO 2080 
EK 2070 G05UB 120:TURN 
DR 2080 FOR X=N1 TO N6 

NU(X3=N0:GOTO 2070 
VP 2090 NEXT X:G0T0 2070 
5Q 2100 TEXT$="Tffnt!psejObSZ/" 
MP 2110 IF ABSCITEML0CCYJ3OR00ML0C AND I 

TEML0C(YJ<>-H1 AND ITEMLOC (YJ 0-N2 THE 

N TEXT$ = "Zpu ! dbo Cu ! t f f ! uibu ! i f sf = " 
KS 2120 IF Y=N1 AND CITEMLOC (YJ =-Nl OR IT 

EMLOCCYJ=ROOMLOCJ AND WET THEN TEXT$=" 

Uifinbudiftfbsflebnqiupiuiflupvdi/"' 
CF 2130 IF Y=N2 AND R00ML0C=27 THEN TEXT$ 

= ||MzjOh!po!uif !cfe! jt ! b ! npnez ! tl f Mf upo 

NI 2140 IF Y=N3 AND R00ML0C=27 THEN TEXTS 

="Uif ItlfMfupo! jt!dpwfsfe!gspn! Ifbe.'up 

! !upf !x jui !uif !ewtu!pg!nbozIzfbst/" 
HB 2150 IF Y=N9 AND ITEMLOC tY) =-Nl THEN T 

EXT5="Uif iqjfdf !pg!gsvju!gf fMtlhppe! jo 

•zpvsiiboe/"' 
BC 2160 IF Y=N4 AND R00ML0C=27 AND NOT 

PI THEN TEXT$ = "Uif !epps! jt.'dMptfe/"' 
BO 2170 IF Y=N4 AND R00ML0C=27 AND OPl TH 

EN TEXT5="Ui f ! epps ! jt 1 tuboe joh ! X jef ! pq 

f O/"' 

5F 2180 IF Y=28 AND R00ML0C=17 THEN TEXTS 
="Zpu!gffM!uif ! fyusfnf ! ifbu ipg'uif g is 
f !<=wfo!gspn!xifsf !zpv!bsf ! tuboe joh/" 

py 2190 IF Y=N5 AND CITEMLOC {Y3 =:-Nl OR IT 



EMLOCCY)=ROOMLOCJ THEN TEXTS="Ui f ti f f 

U! jt!Hpoh!boe!xi juf/" 
JE 2200 IF Y=21 AND tITEMLOC tYJ =-Nl OR IT 

EMLOCCYJrROOMLOCJ THEN 2220 
RF 2210 GOTO 2260 
TI 2220 TEXT$="B!qjfdf !pg!dMpui!ibt!cffo! 

u jfeibspuoeiuif ixppefoitublf/iUif iupqi 

pgruif !tublf jtScMbdl-JbtS'- 
YU 2230 TEXT$C90)="jg!uif Itublf !ibt!cffO' 

M !cvsofe!cfgpsf/":GOSUB 120 
5L 2240 IF COURD THEN TEXT$="Ui f ! xppef O • t 

Ublf ! ibtlcf foitnpuifsfe! ! ixjui !ubS/":G 

OSUB 120 
00 2250 TURN=TURN+N1!G0T0 670 
UJ 2260 IF Y=N5 AND ITEMLOC CY3 =-N2 THEN T 

EXTS="Zpv ! dbo tulep! Uibu- !bt!zpw!bsf"xf 

bs johluif Itif fu/"' 
LJ 2270 IF Y=N16 AND (ITEMLOC tY) =-Nl OR I 

TEML0C(Y3=R00ML0CJ THEN TEXT$="XbUf S ! i 

bt!gpsnfe!po!uif IhphhMft/" 
X& 2280 IF Y=30 AND (R00ML0C=11 OR ROOMLO 

C=25) THEN TEXT$="Ju!tffnt!up!tqbSlMf/ 

TG 2290 IF Y=31 AND (ITEMLOC (YJ =-Nl OR IT 

EMLOC(YJ=ROOMLOCJ AND NOT 0P2 THEN TE 
xtS="U i f ! nphiez I e jbsz ! jt ! dHpt f e/" 

Xfl 2300 IF Y=31 AND (ITEMLOC (YJ =-Nl OR IT 
EMLOC(YJ=ROOMLOCJ AND 0P2 THEN TEXTS=" 
Ui f !e jbsz! jt IpqfO/" 

ZW 2310 IF Y=N6 AND (ITEMLOC (YJ =-Nl OR IT 
EMLOC(YJ=ROOMLOCJ THEN 2500 

CX 2320 IF Y=N7 AND (ITEMLOC (YJ =-Nl OR IT 



THE LOWEST 
PRICES 



THE BEST 
SERVICE 



PHONE LINES 
OPEN 



ELECTRONIC ONE 

CALL re 14J 864-9994 • P.O. Box 13428 • COLUMBUS. OHJO 43213 



10-6 E.S.T. 

M-F 



[ATARI- 



J\\^A^r SUPER SUMMER SIZZLER SOFTWARE SALE J\\^ 

DISK C - CASSETTE R - CARTRIDGE ALL MERCHANDISE NEW — QUANTITIES LIMITED 



SOFTWARE SALE 

STARBOWL FOOTBALL ID) 6.85 
STAR LEAGUE BASEBALL |D)6.85 
THE JAR GAME (C) . 185 

GULP (CI 1,85 

ALIEN COUNTING (C) 185 

BATTLING BUG (C) 1.85 

BLUE MAX 2001 (D) , 6 85 

ATARI MUSIC I (D) 8 85 

MUSIC I (0)8.85 12.85 bolh 

ATARI LAB (R) 

STARTER KIT 9 85 

UGHTKIT(R) .. 12.85 

JUGGLES RAINBOW (D) 4 85 

JUGGLESHOUSEID) . . 4 35 
STARRA(DERS(R) . 1.85 

TIMEWISE(D) 2.85 

POPEYE(R) 4 85 

Q-BERTIR) 4 85 

DEFENDER (R) . . 4 85 

SPACE INVADER (R) 3.85 

DIGDUG(R) 5. 85 

DONKEY KONG (R) 5 85 

FROGGEH(R) 5.85 

HERO(H) 5 85 

ET(R) 185 

GALAXIAN(H) 5.85 

GRID RUNNER (R) .4.85 

HACKER (D) 9.85 



KABOOM(R) 3 35 

SPRINGLEfl(D) 2.85 

DEMON ATTACK (R) 185 

CROSS FIRE (R) 2 85 

RESCUE FRACTALUS(D) 6 85 

KORONISRIFTlD) 6 85 

BALL BLAZER (D) 6 85 

SARG0NN0 2(D) 5.85 

AZTEC CHALLENGE (D) 4 85 

AZTEC CHALLANGE(C) 185 

CRYPTS PLUM BOUS ID) 4 85 

CRYPTS PLUM BOUS (C) 1 85 

GALACTIC AVENGER (D) 4 85 

GALACTIC AVENGER (C) 185 

SPIDER l(^VASION(D) 4 85 

SPIDER INVASION (C) 135 

GHOST BUSTERS (D) 9 85 

16k MEMORY BOARD 3 85 

VISICALCID) 14 85 



PITFALL II IHl 
SYNTRENDID) 
ATLANTISIRl 
HOME FILING 
MANUAL(D) 
MY 1ST ALPHABET (D) 
QIX(R) 

PROGRAMMING 1 (C) 
PROGRAMMING 2(C) 
PROGRAMMING 3 IC) 
RIVER RAIOIR) 
HEROIR) 
ZENGI(R) 
APX DATA MAN (D) 
ITALIAN (C) 
CAVERN OF MARS ID) 
ROAD RACE ID) 
CAR COST IC) 



6 85 ZAXXON(D) 7 85 

6 85 GOLF CLASSIC (C) 185 

185 PITSTOPIKD) 6 85 

CONGO BONGO (R) 4 85 

3 85 WHOMPERSTOMPEH(D) 4 85 

3 85 CLAY MORGUE 

185 CASTLE (H) 4 85 

185 BANK STREET MUSK 9.85 

185 PAPER CLIP W/SPELL 29 85 

1 85 PAINT 6,85 

6 85 FOOTBALL 8.85 

6 85 ONE ON ONE 8.85 

6 85 ATARI WRITER 26 85 

3 85 ATARI WRITER PLUS 29 85 

3 85 PRINT SHOP 29 85 

4 85 SYN FILE 29 85 
9 85 SYNCALC 29 85 
1 85 WISHBRINGER 9 85 



ATARI 

S.T. 



ATARI 

1040 

COLOR 

1040 
BAM 

520ST 
COLOR 
520ST 
B/W 

20 MEG 
HARD DRIVE 
SF314 
DBL DRIVE 



84999 
69999 

64999 
48999 
52999 
19999 



PROMOTIONS & SOFTWARE SALE ENDS WHEN SALE STOCK IS EXHAUSTED 
FREE STAR RAIDERS. E.T. & DEMON ATTACK w/PURCHASE OVER S50.00 (SOFTWARE PURCHASE ONLY) 



HARDWARE 

ATARI BOQXL 79,99 

ATARI 65XE 99. B9 

ATARI 130XE 139,99 

ATARI 1050 DRIVE 178.00 

ATARI 1027 PRINTER, , . , 118, CO 
ATARI XU80I PRINTER , . . 138.00 
INDUS GT DISK DRIVE 188.00 



PRINTERS 

STARNPIO 143,00 

STAHNXIO 158.00 

FORTIS(130CPS1 138,00 

RDRTIS (200CPS) 23fl.00 

PANASONICdOaOit 178 00 

PANASONIC (10911) 219.00 

410 RECORDER 9.85 



OISKETTES 

BULK5'/."D/SD/D 29* bb. 

MAXELL S'/r'D/SD/D . , .7.99/10 
SONY5'/.'-D/SD/D 7 99/10 

T0K3V)"S/SD/D 9.99/10 

TDK 3'^" D/S D/D 14.99/10 



80NUS5V.-D/S 4.49 



ACCESSORIES 
SUPRA 1150 INTERFACE, .39.99 
XETEC INTERFACE ... 39 99 

MICROPRINT ... 2999 

XM301 MODEM 42 9Q 

SUPRA MODEM 36 99 

USDOUBLER 46.99 

&-OUTLET 

SURGE PROTECTOR 8.99 



3 FOR CHARGE CARDS) ... NO PERSONAL CHECKS ... NO C.O.D.'; 



.SHIPPED 



HOW TO ORDER: CASHIER CHECK, MONEY ORDER. MASTERCARD' OR VISA' (ADD A 
U.P S, . . . ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE 
SHIPPrNG; ADD S3.00 ON ALL ORDERS UNDER SlOO.OO . . ADD S5.00 ON ALL ORDERS OVER SlOO 00 ACTUAL FREIGHT CHARGED ON Mill TlPi P nnnPRQ 
L^n^^^^c^?/; o'-.V'^'^'^''' ""^'^^^ CHARGED ON ALL ORDERS OUTSIDE THE CONTINENTAL UNITED STATES .NCiSdInG A P O ^^^^'^^^^ °"°E"S, 

P^ETsfsPE^F™"'' '"'"°"' ' "''""' AUTHORIZATION ... NO RETURNS UNLESS DEFECTIVE ALL DEFe'ct'vEs'wiCl'^E EXCHANGED NO EXCEPTIONS 

■ ■ CALL OR WRITE FOR FREE CATALOG 

CALL ELECTRQNtC ONE f6I4J 864-9994 OR WRITE 



CIRCLE #107 ON READER SERVICE CARD 
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^ EMLOCCYJ=ROOMLOC) THEN 2510 

ItP 2330 IF Y = 20 ftND ITEMLOC CY) =-ROOMLOC T 

HEN TEKT$="MppltlMjlf itpnfui jOh!UB5tB0 

'n jhiu! ! ! ! ! vtf/" 
EG 2340 IF R00ML0C=11 AND Y=N13 AND NOT 

5CFLG(N3) THEN TEKT$="Ui f I UbOhMf ! tf f nt 

!up!cf iCMRdl jOhJbo! ! ! Ipqfojoh/" 
€Z 2350 IF Y=N14 ftND R00ML0C=37 THEN TEXT 

$="Uif IqMbOf !ibt!Uif lMphp!U/T/!OBWZ!po 

! ! ! jut!t jef/" 
fty 2366 IF Y=17 AND R00ML0C=Ni9 AND NOT 

5CFLG(N5J THEN TEHT5="Ui f 1 C jse- ! qspuf d 

U job ! jut ! Of tu- ! es jwf t ! zpv ! bxbz/" 
L2 2370 IF Y=18 AND R00ML0C=Ni9 AND NOT 

5CFLGCN53 THEN TEXT5="Ui f ! C jse- ! qspuf d 

ujoh! jutfwg-lesjwft! ! izpylbxbz/" 
OH 2380 IF Y=N17 AND R00ML0C=Ni9 AND 5CFL 

GCH5) THEN 2520 _ „„ ^ 

ZS 2398 IF Y=Ni9 AND CITEMLOC tY) =-Nl OR I 

TEMLOCtY)=ROOMLOC OR ITEMLOC CY) =-N33 A 

ND SCFLGCN5) THEN 2490 
fiM 2400 IF Y=26 AND {ITEMLOC (N19J =-Nl OR 

ITEMLOC CNi9)=R00ML0C) AND 5WCH THEM 24 

VK 2410 IF Y=23 AND tITEMLOC CYJ =-Nl OR IT 
EMLOCtY)=ROOMLOCJ THEN TEKT$="Ui f ! qHbO 
t'tffn!up!jOWpMWf!b!spdl fu/" 

HJ 2420 IF Yr26 AND CITEMLOC CN19) =-Nl OR 
ITEMLOC CN19)=R00ML0CJ AND NOT SWCH TH 

HH 2430 IF Y=27 AND CITEMLOC CN19J =-Nl OR 
ITEMLOC CN19)=R00ML0CJ AND 0P3 THEN 445 

fp 2440 IF Y=27 AND CITEMLOC CN19J =-Nl OR 
ITEML0CCN19)=R00ML0C) AND NOT 0P3 THE 
u "7 j1 ft c) 
EM 2450 G05UB 120:TURN=TURN+N1:GOTO 670 
PG 2460 TEKT$="Uif SqbOfM! jt!dMptfe/":GOTO 

DE 2470 TEXT$="Uif StXjUdi! jt! jOiUif ipgglq 

PtjUjpo/":G0T0 2450 
RK 2480 TEKT$ = "Uif itxjudi! jt! jO'.Uif !po!qp 
t ju jpo/":G0T0 2450 .^, 

QM 2490 TEXT$="P0!uif !USbOtnjUUfS-!zpv!tf 
f I bo ! pCMpoh ! tx jud i 1 boe ! b ! tnbMM! qfaof M/" 
:GOTO 2450 , , .^.. 

FM 2500 TEXT$-"Uif ilOjgf ! jtlfyusfnfHZftib 
sq'boe' ' ' ' ! Idpwfsfeixjui lesjfelcwppetu 
bjot/":GOTO 2450 ^ , 

OL 2510 TEXTS-"Uif!0fXtqbqfS! jtlWfSZlpwe! 

boelcbsfMZ! !sfbebcMf/":GOTO 2450 
BK 2520 ? :? "In the nest, you see!":IT=N 
0:FOR X = N1 TO NN-Nl:IF ITEMLOC CK3 0-N3 
THEN NEXT X:GOTO 2540 
5C 2530 TEXT$=ITEM$CX»5Z-5Z+N1,X»SZJ :G05U 

B 110:? ■■ "JTEXT$:IT = N1:NEXT K 
HY 2548 IF NOT IT THEN ? "Nothing." 
OU 2550 TURN=TURN+Nl:GOTO 670 
EA 2560 TEXT$="Zpv!dboCu!uispx!UibU=" 
OP 2570 IF AB5 CITEMLOC CY) J OROOMLpC ftND I 
TEML0CCY)<>-N1 AND ITEMLOC CYJ 0-N2 THE 
N TEXT$="ZPV!dboCu!tf f luibu! ifsf=" 
JZ 2580 IF Y=N9 AND ITEMLOC CY) =-Nl AND RO 
0ML0C=N19 AND NOT SCFLGCN5) THEN SCFL 
GfN5)=Nl;SC0RE=SC0RE+N10:G0T0 2630 
NE 2590 IF ITEML0CCY)=-N1 OR ITEMLOCCY)^- 

N2 THEN TEXT$="Uispxo/";GOTO 2610 
EB 2600 G05UB 128 :TURN=TURN+N1 ! GOTO 678 
HF 2610 FOR X=N1 TO N6 : IF INUCX)=Y THEN I 

NU CX) =H8 : ITEMLOC CY) rROOMLOC : GOTO 2580 
UG 2628 NEXT XlGOTO 2680 . 

IG 2638 ITEMLOC CN19)=-N3:TEXTS="Zpv!iju!u 
if IC jseltrvbsfHzix jui !uif ! ! ! !q jfdf !pg! 
gsv ju-!es jwjoh! ju!pgg=" 
Y« 2648 FOR X=N1 TO N6:IF IHU CH) =Y THEN I 

NU CX) =N8 : ITEMLOC CY) rROOMLOC ! GOTO 2668 
HA 2658 NEXT X 
|>5 2660 G05UB 120:G0T0 618 



AD 2678 TEXTS="Zpu!dboCu!ep!UibU=" 

OU 2680 IF AB5CITEML0CCY))<>R00MLpC AND I 

TEML0CCY)<>-N1 AND ITEMLOC CY) <>-N2 THE 

N TEXTS=:"Zpv!dboCu!tff iuibu! ifsf = " 

ED 2690 IF Y=N1 AND ITEMLOC CY) =-Nl AND LI 

T THEN TEXT$="Zpy ! ibwf Ibnsfbezlepof !Ui 

FO 2700 IF Yr21 AND ITEMLOC CY) =-Nl AND CO 

URD AND LIT THEN ITEMLOC CY) =N0 : ITEMLOC 

C29)=-Nl:G0T0 2778 
CM 2718 IF Y=21 AND ITEMLOC CY) =-Nl AND LI 

T AND NOT COURD THEN 2888 
HA 2728 IF Y=21 AND ITEMLOC CY) =-1 AMD ROO 

ML0CO34 AND R00ML0O30 AND R00ML0C<>3 

7 THEN TEXT$="Zpv!dboCu!eplUibu! ifsf/" 
MX 2738 IF Y=l AND ITEMLOC CY) =-1 AND ROOM 

L0CO34 AND ROOMLOOSO AND R00ML0CO37 
THEN TEXTS="Zpv!dboCu!ep!uibu!ifSf/" 
JH 2740 IF Y=N1 AND ITEMLOC CY) =-Nl AND N 

OT WET THEN LIT=1 : CNTR=NO : TEXT$="Ui f ! n 

budi icvstut! joupsgwbnf/" 
NG 2758 IF Y=Ni AND ITEMLOC CY) =-Nl AND ME 

T THEN TEXT5="Uif !nbudift!bsf iupplebnq 

/" 
EM 2768 G05UB 120 : TURN=TURN+N1 : GOTO 678 
UU 2770 TEXT$="Uif !ubs!po!uif Itublf ICfhjO 

tlup!cvso-! iqspwje johizpvix jui Ibiupsdi 

MC 2780 FOR X=N1 TO N6:IF INU CK) =Y THEM I 

MVCX)=29:G05UB 120:G0T0 618 
FX 2790 NEXT X:G05UB 128 ! GOTO 610 
MU 2808 TEXT$="Uif Itublf !cfhjOt!up!CUSO-! 

cyu ' bt ! ui f s f jt ! op ! gMbnnbcMf ! tvctubodf ! 

po! ju-!uif ! IgMbnf !rv jdlMZltvct jeft/" 

TZ 2810 GOTO 2760 . . ^ , 

VM 2820 TEXTS="Ui jtibddpnqMjtiftlopUi jOh/ 

IE 2830 IF ITEMLOC CM6)<>-N1 THEN TEXTS="Z 

PV'epoCulibwf !uif isfrvjsfe'pckfdu/" 
OM 2840 IF ABS CITEMLOC CY))<>ROOMLpC AMD I 

TEML0CCY)<>-N1 AMD ITEMLOC CY) 0-N2 THE 

N TEXT$="Zpv!dboCu!tf f iuibu! ifsf=" 
ZR 2850 IF R00ML0C=N14 AND Y=N13 AND ITEM 

L0CCN6)=-M1 AND SCFLGCN3)=N1 THEN 2880 
TL 2860 IF R00ML0C=N14 AMD ITEMLOC CN6) =-N 

1 AND Y=:N13 THEN 2890 
FA 2870 G05UB 120 : TURN=TURN + N1 : GOTO 678 
JD 2880 TEXTS="Zpv! ibwf !bMSfbez!epof iuibu 

z":GOTO 2878 
ZO 2898 IF 5CFLGCN3)<>N1 THEN 5CFLGCM3)=M 

l:5C0RE=SC0RE+N18 
KH 2900 TEXT$=;"DVUUjOh!Uispvhi !Uif lUbOhHf 

•pglwjoft! ! !sfWfbHt!b!nytUZ!qbttbhf iMf 

be jOh!uplUifopsui/" 
DJ 2910 GOSUB 120:GOTO 618 
HQ 2920 TEXTS="Zpv!dboCu!sfbe!UibU=" 
Sl 2930 IF AB5CITEML0CCY))<>R00MLpC AND I 

TEML0CCY)<>-N1 AND ITEMLOC CY) 0-N2 THE 

N TEXT$ = "ZPV!dbO CU ! t f f ! UibU 1 ifsf = " 
LB 2940 IF Y=23 AND CITEMLOC CY)=-N1 OR IT 

EML0CCY)=RO0MLOC) THEN TEXTS="Ui f ! qnbo 

t'tf fn!up!dpodfSO!b«.spdlfU/" 
KC 2950 IF Y=N7 AND CITEMLOC CY) =-Nl OR IT 

EML0CCy)=R00ML0C) THEN GOTO 2990 
KL 2960 IF Y=31 AND CITEMLOC CY) =-Ml OR IT 

iMLOCCY)=ROOMLOC) AND NOT 0P2 THEM TE 
HT$="Ui f ' e jbSZ ! jt ! dMptfe/" 
UQ 2978 IF Y=31 AND CITEMLOC CY) =-Nl OR IT 

EMLOCCY)=ROOMLOC) AND 0P2 THEN 3838 
FF 2988 GOSUB 128 !TURN=TURN+Nl! GOTO 678 
IM 2990 TEXT$="UifSf ! jtlpOMZlpof ISfbebCHf 

.|upsz!«fgulpo!uif!p«e!ofxtqbqfs/!Ju!u 

f MMt ! pg ! bO ! ! y/T/ ! ObWZ ! b jsqMbOf UibU" . 
Til 3000 TEXT$C100)="!dSbti .Mboefe! itpnfxi 
^" f|?T jolCif !Qbd jg jd'xi jHf M ■ I ! ! ! Ijlbsszj 

oh'tfdsfu!qMbot!tupMfo!gspn!uif !' 
YZ 3010 TEXTSC191)="HfsnbOt!eysjOh!XpsMe! 

Xbs!JJ/" 
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WL 3020 GOTO 2980 

RT 3030 ? :? "You have opened the diary t 
o its last page. It reads as follows:" 

KO 3040 TEXTS="Efbs!Ejbsz; i i i i i i i 

MM!!!!!!!!! ! J ! bn ! Of bSMZ ! pvu ! pg i gppe/ 
! J! ibwf ! ! ! ! ! Xb juf e ! tp ! Mpoh ! up « c f ' " 

UC 3050 TEKTSC58J="sftdvfe/!Xi jMf! I iMPPlj 
oh!gps!gppe!po!uif !opsui!foe!pg! 'uif I j 
tMboe-! J!ejtdpwfsfe!b!usjcf 'pg'" 

TX 3060 TEXT$(189)="! !obUjWft/!Xifo'UifZ' 
tbX!nf !uif2!bMnptU":G05UB llO:? TEXTS' 

DX 3070 TEXT$="kvnqfe!pvu!pg!uif js'tl jot/' 
! J!ui jol ! ! ! !uifz!njhiu!cf !tvqfstu jujpv 
t!ps! !!!!!! ! tpnfui joh/ ! J ! cbsf MZ ! " 

AH 3080 TEXTSC97J="ftdbqfe/! Jidbotu" "gjoe 
!bOZ!gppe/! JCn!tMpxMz!MptjOh! ! ! ! I I ipqf 
/! J! ipqf ! J!dbo! tvswjwf/! i i i ■ i i i i ■■ 

YN 3090 TEXTStl94)r"! ! ! ! ! !Mu/!kpi6ifnjui- 
!U/T/!OBWZ" ■' 

CQ 3100 G05UB llO:? TEXTS : TURH=TURM+M1 ! GO 
TO 670 

ZC 3110 TEXT$="ZpM!dbOfu!epiuibU=" 

YV 3120 IF ITEML0Ct27)<>-Nl THEM TEXTS="Z 
pviepoCu! ibwf ! uif !qspqfs!uppn/" 

HM 3130 IF AB5(ITEML0C(Y3J<>R0OML0C AND I 
TEMLOCtYJO-Nl AND ITEMLOC CYJ 0-N2 THE 
N TEXTS="Zpv!db0Cu!tf f !uibu! ifsf=" 

EO 3140 IF Y=32 ftND ITEMLOC £253 =-Nl THEN 
TEXTS="Uif !hspvoe! jt ! opu ! tv jubCHf ' gps ' 
ejhhjohifsf/" " 

GI 3150 IF Y=32 AND ITEMLOC (25J =-Nl AND R 
00ML0C=30 AND ITEMLOC 129) O-Nl THEN TE 
KT$3"Ju (t ! upp ! ebsl ! up ! e jh ! i f sf /" 

•^•^ Iht^ ^"^ ''^^^ AND ITEMLOC C25)=-N1 AND R 
OOMLOC=30 AND ITEMLOC C29J =-Ni THEN TEX 
TS="Epo(u!cpuifS/" 

*** Thl?nVr.l7^^ ^**^ ITEMLOC C25)=-N1 AND I 

TEML0Ct29)=-Nl AND SCFLGCN9J THEN TEXT 

S="zpv! ibwf !bMsfbez!epof !uibu=" 
5P 3180 IF Y=22 AND ITEMLOC C25J =-Nl AND I 

TEML0CC29)=-N1 AND NOT 5CFLG CN9) THEM 
5CFLGCN9)zNl:G0T0 3200 
ET 3190 G05UB 120 ! TURN=TURN+N1 : GOTO 670 
EE 3200 SC0RE=5C0RE+N10:TEXTS="Xi jMf lejhh 

jOh! jo! Uif! ipnf-!zpv!dpnf ! ! Ibdsptt'b't 

fU!pg!qMbOt/":ITEMLOCC23)=30 
CH 3210 G05UB 120:G0T0 610 
ZH 3220 TEXT$="Zpv!dbOtu!ep!uibU=" 
HY 3230 IF AB5{ITEMLOCtY))<>R0OMLOC AND I 

i^!?^2?r?.^^"?L'*"'* ITEMLOC (Y) 0-N2 THE 
_„ 5 TEXTS="Zpv!dbotu!tff iuibu'ifsfz" 
^^ J^i^,^^ '^=**^ ^**^ ITEMLOC t28J=-R00ML0C 

?Spu^I^I?k°'='^^="''^ '^ND NOT 5CFLGtN8) 
>u l^^** 5CORE = 5CORE+M10:GOT0 3280 
^" ?£?S„^'' ''=**^ ^**^ ITEMLOC (Y)r-Nl AND IT 

i?t2'^.^?"7T?'^°"'-OC AND NOT WET THEM T 
u^ ^*<T$_"Zpv!ibwf !bMsfbez!epof !uibu=" 
HG 3260 IF Y=N1 AND ITEMLOC tY) r-Nl AND IT 

EML0CC28)=-R00ML0C AND WET THEN 3280 
£P f270 GOSUB 120 !TURN=TURN+M1! GOTO 670 
'^'^ .^280 5CFLGCN8)=Nl:WET=N0:TEXT$="Uif!nb 
"^^♦^tibsf !opx!dpngpsubCMz!esz/":GOTO 3 

AC 3290 TEXTSz"Zpv!dbOfu!ep!uibU=" 

^^ ^^SPni^^^^^^^^^^LOCCYlJOROOMLOC AND I 

;^"^0CCY)<>-N1 AND ITEMLOC CY)<>-N2 THE 
.„ " TEXTS-"Zpv!dboCu!tf f !uibu« ifsf=" 
LH 3310 IF Y=:21 AND ITEMLOC CY) =-Nl AND BO 

0MLpC=N13 AND COURD THEN TEXTS="Z?v!ib 

wf !bMsfbez!epof !uibu=" fv.xi, 

10 3320 IF Y=21 AND ITEMLOC tY) =-Nl AND RO 

??b?i=Iti\^?S!^ NOT COURD THEN C0URD=2? 
r.r If"^-' "^''T"''^f'-'^'^P*'fsfe!xjui!ubs/" 
K TT^^ 52Sy! i20:TURN=TURN+Nl:G0T0 670 
2P 3340 TEXT$="Zpv!dbo(u!ep!uibur" 
Fft 3350 IF R00ML0C=N19 AND NOT 5CFLG(N5) 
THEN TEXT$="Uif!cjse-!qspufdUjoh!jut! 



^: oftu-!es jwft !zpv!bxbz=" 

OJ 3360 IF ABStITEMLOC(Y))<>ROOMLOC AND I 

1^t'^vU^14^~1L^^'^ ITEMLOC CY) <>-N2 THE 
..» ** TEXTS = "Zpv!dbofu!tff !uibu"ifsf=" 
MR 3370 IF YZN15 AND ITEMLOC CY) =-N4 AND 

P3^THEN TEXTSz"Zpv!ibWf!bMSfbez!epof!u 

*" nl^L^"" ^^"^^ '^'''^ ITEMLOC (Y)r-Nl AND 
P3 AND ITEMLOC CN19)z-Nl THEN IN5=N1:IT 
MM ^!?L0CfY)=-N4!TEXT$z"PlbZ/":G075 3^20 
MM 3390 IF Y=N15 AND ITEMLOC CY) =-Nl AND I 
TEML0CCM19)=-M1 AND NOT 0P3 AND 5CFLG 
CN5) THEN TEXTSz"Uif!qbOf«UtTSMptfe/" 
JX 3400 IF 5CFLGCN5) AND R00ML0C=N19 AND 
CITEML0CCY)=-N1 OR ITEMLOC CY)z-S2) THE 
N ITEMLOC tY)r-N3: GOTO 3420 
^P. ^fi® G05UB 120 :TURNrTURN+Nl: GOTO 670 
QW 3420 TEXTS="PlbZ/":FOR X^Nl TO M6ilF I 

NUCX)=Y THEM INU CX) zNO : GOTO 3410 
UG 3430 NEXT XlGOTO 3410 
ZR 3440 TEXT$="Zpu!db0Cu!ep'UibU=" 
" ?*S0 IF ABSCITEMLOCCY))<>ROOMLOC AMD I 
i^"^OCCY)<>-Nl AND ITEMLOC CY)<>-N2 THE 
N TEXTS="Zpv!db0Cu!tff !uibu>ifsf=" 
L5 3460 IF Y=28 AND R00ML0C=N17 THEN TEXT 
5="0p!nbUUfs!xibu!zpu!ep-!uif 'gjsf ' " i ' 
! ! !sfgvtft!up!cf ! fyu johv Jti f e/" 

-•" If.l^ K ^^"^ ^**^ "-IT THEN LIT=MO: TEXTS 
.... =^PV!tovgg!pvu!uif!nbudi/" 

LK 3500 NEXT X 

ED 3510 GOSUB 120 : TURN=TURM+N1 i GOTO 670 
W 3520 TEXT$r..Zpv!dboCu!sjefTpoyiibS=" 
'^" ^530 IF ITEMLOCCY)<>ROOMLOC AMD ITEMLO 
?i-MT^~?i.'*^'>."E"'-0C"J<>-N2 THEN TEX 
T$="Zpv!db0Cu!tff !uibu' ifsf=" 

V" HEN°39O0^~^® '*'"* ITEMLOC CY)=-ROOMLOC T 

EP 3550 GOSUB 120 : TURN=TURN+N1 : GOTO 678 

YJ 3560 ? :? "You have:" 

^^ ^w^ JNy = N0:FOR XzNl TO NN:IF ITEMLOC C 

« rn;SS^?S ITEML0CCX)<>-N2 THEN NEXT 
n . bU I 3610 

HI 3580 TEXTS=ITEMSCX*SZ-5Z+M1,X«SZ) :GOSU 
tf 110 

Xli 3590 IF ITEMLOC CX)=-M2 THEM TEXTS CN13) 
=" Cbeing worn)" 

tS ^f?2 I " ";textS:inu=mi:mext X 

IH 3610 IF NOT INU THEN ? "Nothing." 
00 3620 TURN = TURN + Nl:GOTO 670 '^"'"3- 
US 3630 TEHTS="Zpv! ibwf! tvqsjtfe!b 'US jcf 
pg!tbwbhft/'!Uifz!cfhjo!up!dibshfiupxbs 

LM 3640 TEXTSC102)="!zpv!bSf ! ! " I ixfbsjoh- 
Uifz!ui jol!zpv!bsf !b!hiptu-! !boe'gMff 

! jOUpiUif iCSVti/" «r.anrT 

•fM 3650^G0SUB 120:SCORE=SCORE + M10:SCFLGCM 
BF 3660 RETURN 

GB 3670 IF R00ML0C=N17 AND NOT SCFLGCHU 
THEN FLL$="D : ROOM. 13A" : K^LLFLGzi : Golo 

AM 3680 FLL$tN8)=STRSCR00ML0C-N4) 
'"■ Itl^ ^^ R00ML0C=31 AND NOT SCFLG CN4) 
AND ITEMLOC CM16)=-N2 THEN FLLS CNiO) *"B 

^'- PSS^I'^ CR00ML0O30 AND R00ML0CO34 AN 
E,s^J^?f-°'^^"^^'<>-N2J OR CR00ML0C = N14 A 
ND SCFLGCN3)) THEM FLLS CNIO) z"A" 

FLLSCNIO?-"^"'^''''^^ ^**^ SCFLG CN5) THEN 
'' '?HiN'pLL'^?N"^0'?;.^^'*'"* ITEMLOC C29)=-N1 
FN 3730 IF R00ML0C=37 THEM FLLSCNIO)^" " 
OM 3740 IF ROOMLOC=30 AND ITEMLOC C29) O-N 
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1 THEN ITEML0Ct22)=Ne ,,^„, „„„„,_ „. 
3750 IF R00ML0C=3fl AND ITEMLOC t29J =-Ml 
ftND NOT 5CFLGCN7) THEN 5CFLG tN7) =N1 : 
5CORE=5CORE+NiO!FLLStN10)="ft" 
3760 IF ROOMLOC=30 ftND ITEMLOC t29J =-Nl 

THEN ITEMLOC (22J=-R0OMLOC 
3770 IF INPS="LOOK" OR INP$="L" THEN 3 
750 

If 3780 IF BRIEF THEN 3810^ 

m 3790 OPEN ttNl,N4,N0,FLLS „. „^.. « 
3800 INPUT ttNl;TEXTl:G05UB 120 ! CLOSE » 
Nl 

ii20 ?F^SCORE=1O0 THEN TEXTS="NbtUf S ! B 
383o"lF'5c'oRE<i00 THEN TEXTS="BewbOdf e 
3840*If"5C0RE<70 THEN TEXTS="JOUf snf e j 
385O^If'sCORE<40 THEN TEXTS="Cf h jOO joh 
|iIS^?P''5CORE<20 THEN TEXTS="OpW jdf ! Be 

3870 ' -.-^ "YOU have ";SCORE;" points o 
ut ofa possible":? "100, in ";TURN;" 
turns, which gives you" 
3880 G05UB 110 . „^^,,„u 

3890 ? "the rank of ■■;TEXTS:RETIJRN 
3900 TEXT$="XjUi!b!tVShf IpglbesfObMjO! 
boe'b' II"'" !gsjhiUfOjOh!ZfMM-!zpv!hSbC 
luif 'Mpoh! ! iwjof !boe!tX johlupib" 



tS 3910 TEXTSC96J="!0fbSCZ!USff/" 
l> 3920 IF R00ML0C=N9 THEN R00ML0C=N10 : GO 
r TO 3940 

ICH 3930 IF R0QML0C=N10 THEN R00ML0C=N9 
|»H 3940 IF NOT 5CFLGtN6) THEN SCFLG (N6J = 

Nl!SCORE=SCORE+N10 
PL 3950 ITEML0CtN20)=-R00ML0C:G05UB 120 : G 

OTO 610 
ttt 3960 GOSUB llO ! X=PEEK t84J ! Y=PEEK t85J : P 

OKE 752,Nl:P0KE 88,206:POKE 89, N6 
LI 3970 POSITION N2,N0!? " 

■ I 

PL 3980 POSITION N2, NO:? TEXTS : POSITION 2 
4, no:? " Effrmi '■jSCORE;"/";TURN; :POKE 
84,X:P0KE 85,X:P0KE 752, NO 

rfl 3990 POKE 88,SCRL:P0KE 89, SCRH : RETURN 

QK 4000 ? :? " *** You 3re dead! ** 

«'■ 

CP 4010 GOSUB 3820 

TT 4020 ? :? '■ 

II 

UJ 4030 ? "Would you like to restart, res 
tore, or quit";:INPUT INP$ 

RN 4040 IF INPS="RESTflRT" THEN lOO 

m 4050 IF INPS="RESTORE" THEN KILLFLG=NO 
:GOTO 4350 

HZ 4060 IF INPS="QUIT" THEN 4240 

(tfi 4070 GOTO 4030 

H4 4080 ? :? "The current finally takes i 
ts toll on you." 

OZ 4090 GOTO 4000 
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micrOtyme 

A DIVISION OF MICRO PERIPHERALS, INC. 

P.O. BOX 369 • KETTERIIUG. OHIO 45409 




A. 

ATARI 



ATARI 

ST'I Colw DT Mom CALL 

Supra 20, 30. 60 Meg CALL 

SH 204 20 MegaOyle CALL 

130 XE CALL 

1050 Disk Drive CALL 

1020 Color Printer/ Roller ..29 

Power Supply 1050 17 

Power Supply XE/ XL 29 

Power Supply for Indus GT .... 19 
XEP-80... .30 Column! .. CALL 

PRINTERS 
PANASONIC: 

KX-PIOBOi. 120CPS 189 

KX-P1091/. 160 cps 219 

KX-P1092I. 240CPS 339 

KX-P110 Ribbon. BIk 9 

STAR: 

NX-10(80col) 189 

NP-10 ..NEW MODEL .149 

CITIZEN: 
MSP-10 CALL 

EPSON: 

U-86 CALL 

FX-286E CALL 



MODEMS 

SX-212-300/1200 CALL 

XM-301 Direct Connect CALL 

AVATEX1200bps 95 

AVATEX1200H.C 129 

AVATEX2400 ...HEW. ..CALL 

INTERFACES 

P:R: CONNECTION 69 

SUPRA MICB0STUFFER(64K) .59 
SUPRA/MPPIISO CALL 

MONITORS 

NAP Green W/AuPio 85 

NAPAmOerW/Audio 90 

NAP Composite Color CALL 

ACCESSORIES 

Disk File (nolOs toot) 5'/. ... 13 
Power Strip . Spike & Surge ... 1 5 

Epyx 500XJ Joystick 14 

6' Atari Serial I/O Cable 8 

U.S. DOUBLERw/DOS 49 

U.S. DOUBLERnoDOS 29 

"Duplicator" for 1050 Disk Drive 89 



PRINTER SUPPLIES 

MAILING LABELS, Wfiile. 500 pk. 
PAPEH. Micro Perts 500 shts 



8BIT SOFTWARE 



Action 46 

Action Tool Kit 19 

Alternate Reality 25 

Atari Writer 35 

Auto Duel 34 

AwaroWare 12 

B-Graph 25 

Basic XE 46 

Basic XL 36 

Basic XL Tool Kit 19 

Bop 'n' Wrestle 21 

Ctiamp LoOeRunner 18 

Cbessmasler 2000 27 

F-15 Strike Eagle 21 

FigntNigm 20 

Fligm Simulator II 34 

Scenery Disks ea 15 

Scenery Disk Set 74 

Fraction Action 21 



Ft Apocalypse 7 

Gemstone Warrior 12 

GellysPurg 39 

Gunslinge 20 

Haroball 20 

Hilctihiker's Guide 23 

Home Accountant 27 

Infillrator 19 

Karaieka 18 

Kickstan ? 

UstV-8 7 

Leader Board 25 

Learner Goddesses 22 

Loderunner 23 

MAC/65 46 

MAC/65 Tool Kit 19 

Masiertype 27 

MegaFomll 16 

Mercenary 20 

Merc Data Disks ea12 

Millionaire 15 

Moon Mist 22 

Movie Maker 11 

M.U.L.E 11 

Music Const. Set 11 

Music Studio 24 

Never Ending Story . 21 



NINJA 7 

Page Designer 20 

Paper Clip w/ Spell 38 

Pawn 25 

Pnantassie I or II 25 

Pinball Const. Set 11 

Planetarium 19 

PrintShop 28 

PriniShop Companion 24 

Grapfiics Libraries 16 

PS Interlace 18 

R-Time-aCad 48 

Racing Destruction 11 

Rambo XL 28 

Relorger88 12 

Rubber Stamp 20 

Silent Service 24 

Sixqun Shootout 27 

Spatia OOS-X Cart 49 

Speed King 7 

Spyvs.Spyl&ll 21 

Star Fleet I 35 

Star Raiders II 13 

Strip Poker 19 

S.P Data Disks eal3 

Super Boulderdash 11 

Syn-Calc 31 



Syn-Calc Templates 14 

Sny-FilePlus 31 

Timewise 3 

Top Gunner 17 

Touchdown Football 11 

Trail Blazer 21 

Triple Pack 14 

Tycoon 15 

Typesetter 22 

Ullimal-IV CALL 

Video Poker 7 

Video Vegas 21 

Wargame Const. Set 19 

Warship 39 

Wizard's Crown 26 

XLENT Word Processor 20 

ZORKTrilogy 39 



ST SOFTWARE 



OVER 300 TITLES 

IN STOCK. 

LARGEST SELECTION 

IN THE COUNTRY! 



HOURS: M-F 9 am-9 pm EST 
SAT 10 am-4pm 



TO ORDER, CALL TOLL FREE 

1-8Q0-255-5835 



TERMS AND CONDITIONS 

Minimum order $20 • COD. ■ $3.00 Stiip/Handl. must be prepaid 



Ohio Residents, Order Status or 
Tech. Info, Call (513) 294-6236 

CIRCLE #108 ON READER SERVICE CARD 

Ohio residents add 6% sales tax < Please allow 3 weeks lor personal or 



. NO EXTRA CHARGES FOR CREDIT CARDS! • We do not bill until we snip • Minimum order izu • ^■"■"- ■"'""■'''''': ".°"";„ LL"' 7J-'""„"„.;,;;"^^^^^ . We ship to Alaska. Hawaii. Pueno Rico 

credit -Returns sub|ecl to 15% re-stocklng charge • Due to changing market conditions, call toll free for latest price and availability of product 
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m 4100 TEXTS="Zpv!ublf !b!effq!csfbUi-!bO 

ele jwf ! ! ! ! ! !voefsxbufs///":G05UB 120 
PF 4110 IF ITEMLOCtNl)=-Nl THEN WET=N1 
AK 4120 RETURN 
GC 4130 IF LIT THEN LIT=N0 : TEXTS="Zpvs I nb 

Udi ! ibtlcf fo! f yu johu jti f e/" : CNTR=NO : GO 

SUB 120 
IX 4140 IF ITEML0C(29)=-N1 THEN ITEML0Ct2 

9)=N0:ITEML0CC21)=-Nl!TEXT$="Zpvs!upsd 

i I ibtlcf fo! fyu johu jtife/" 
Mft 4150 FOR X=N1 TO N6 : IF INUCX)=25 THEN 

INUCX)=21:G05UB 120:RETURN 
ND 4160 NEXT X:RETURN 
YG 4170 IF INP5<>"N'" AND INPS<>"5" AND IN 

P$<>"E" AND INP$<>"W AND INP$<>"D'" AN 

D IHPSO-U" AND INPS<>"NE" THEN 4190 
PM 4180 GOTO 4200 
PW 4190 IF INP$<>"5W" AND INPS<>"5E" AND 

INP$<>"NW' THEN TEXT$="J!epo(u!voefStU 

boe!uibu!dpnnboe/":GD5UB 120:G0T0 670 
AG 4200 RETURN 
NF 4210 TEXT$="Zpv! ibwf !tuddf fefe! jolt jho 

bMnJohlbl ! ! Iti jqIpggtipsf/IJultfoetIb! 

Mjgfcpbulgpszpv/":GOSUB 120 
KT 4220 ? :? " MXXKKMx You have been rescu 

edi KXXKXXX " 
XE 4230 5CORE=SCORE+N10:GOSUB 3820 
FK 4240 ? :? " end of session ":G05 

UB 150 
5C 4250 GOTO 4250 
10 4260 ? :? "Saving Gane..." 
ftX 4270 OPEN ttl, 8,0, "D: CASTAWAY. DAT" 
HQ 4280 TEXT$="," 
flV 4290 ? ttljR00ML0C;TEHT5;0Pl:TEXT$:0P3: 

TEXTS; UNLl;TEXT5jC0yRD;TEXT$; WET: TEXTS 

J LIT; TEXTS J SCORE, -TEXTS J TURN; TEXTS; 
ST 4300 ? tti;BRIEF;TEXT$;CNTR;TEXT$;INS;T 

EXTS;0P2 
ZI 4310 FOR X=N1 TO NN-Nl : PRINT ttNl;ITEML 

OC CK3 ! NEXT X 
BK 4320 FOR X=N1 TO N6 : ? ttHl; INU CX) : NEXT 

HE 4330 FOR X=N1 TO NIO:? ttNl; SCFLG CXI : HE 

CB 4340 CLOSE »1 : ? CHR$tl25)!? :? "Save C 

OMplete.":G0T0 620 
IJ 4350 ? ;? "Restoring Saved GaMe..." 
P5 4360 OPEN ttl, 4, O, "D ! CASTAWAY . DAT" 
TB 4370 INPUT ttNl, ROOMLOC, OPl, 0P3, UNLl, CO 

VRD, WET, LIT, SCORE, TURN, BRIEF, CNTR, INS, 

0P2 

£E 4380 FOR X=N1 TO NN-N1;INPUT ttNl,Y:ITE 

MLOCCK)=Y!NEXT X 
SL 4390 FOR X=N1 TO N6:INPUT ttNl,Y:INUtK) 

— Y S NEXT X 
KM 4400 FOR X=N1 TO NlOrlNPUT «N1,Y:SCFLG 

CK)— YjNEXT X 
UN 4410 CLOSE ttl:? CHRSC125):? :? "Restor 

e COMplete.":KILLFLG=N0:GOTO 620 
LN 4420 IF PEEK C1953 =170 THEN ? CHR$C253) 

:? "You don't have a save file on this 
disk." 
m 4425 IF PEEK tl95J =167 THEN ? CHRS (253J 

:? "Locked Filel" 
BT 4430 IF PEEKC195)=5 THEN ? :? "I don't 

understand that sentence." 
SX 4435 IF PEEK (1953 =162 THEN ? CHRS (253J 

:? "Disk FuUI" 
JU 4440 CLOSE ttNl: GOTO 710 
KX 4450 IF INS THEN TEXTS="Tpnf I cbuuf s jf t 

I ibwf icf fo! jotfsufel Joupuif lusbotn juuf 

S/":G0T0 4470 
GU 4460 TEXTS="UifSf I jtlopui joh! jotjef «Ui 

f Isbejp! ! ! ! lusbotn juuf s/" 
EU 4470 GOSUB 120 : TURN=TURN+N1 : GOTO 678 
CX 4480 GOSUB 3820 : GOTO 4240 
HQ 4490 N0=0:N1=1:N2=2:N3=3:N4=4:N5=5:N6= 

6 : N7=7 : N8=8 : N9=9 : N10=10 : Nll=ll : N12=12 : 



^ Ni3=13:N14=14:N15=15 

UP 4500 N16=16:N17=17:N18=18:N19=19:N20=2 

: NN=N8*N4 : NV=N8*N4-N1 : 5Z=N20 : BRIEF=N0 
CI 4510 SCRL=PEEKC88) :SCRH=PEEKC89) 
IB 4520 DIM N0UNSfNN»N3) ,yERBStNU»N3J ,ITE 

MS tNN»SZ) , TEXTS C500) , INPS £30) , UBS CN15) 

, NHS CN15) , LOCS (77) , SPCS (35) 
RM 4530 DIM CRYPTS (35) , ITEMLOC (NN) , U (NU) , 

INU (N6),FLLS(N15), SCFLG (N10),DLS (37) :F 

LLS="D:ROOM." 
GG 4540 WET=Nl:UNLl=NO:BRTH=N0:TURN=-Nl:S 

CORE=NO:LIT=NO:C0URD=NO:CNTR=NO:INS=N0 

:OP1=N0:OP2=NO:OP3=N0:ROOMLOC=N5 
CI 4550 N0UNS="MATBEDSKED005HEKHINEWTREFR 

UP00TABKEYTAHAIRBATG0GNE5BIRTRAUIN5TAH 

0LPLAR0C5H0SWIPAHFIRT0RSPRDIAGR0" 
OP 4560 UERBS="OPECLOLOCUNLWEAREMGETTAKMO 

UPUSFLIDR0EXASEAL00THRLIGCUT5LIREADIGD 

RYHEADIPCOUCOATARINSPUTEXTRID" 
JU 4570 ITEM$(N1)=" ": ITEMS (NN*SZ) =" ":IT 

EMSCN2)=ITEMS 
TO 4580 GOTO 490 
IT 4590 DATA 1,2,3,4,5,6,7,7,8,8,8,9,10,1 

0,10,11,12,13,13,14,15,16,16,17,17,17, 

17,18,18,19,20 
B8 4600 DATA 104,104,133,204,104,133,203, 

104,133,206,104,133,205,104,104,133,20 

7,162,0,142,255,6,134,213,232 
LA 4610 DATA 160,0,177,203,209,205,208,8, 

200,192,3,208,245,134,212,96,173,255,6 

,24,105,3,197,207,240 



Computer Elite 



■PERSONALIZED 

SERVICE AT 

ITS BEST 



■CUSTOMIZED 
PROGRAMMING 



CALL (614)836-9600 £ 
P.O. BOX 213 ^ 

GROVEPORT, OH 43125 



ATARI HARDWARE 

ATARI 8G0XL 77.99 

ATARI 65XE 89.99 

ATARI 130XE 137.99 

ATARI DBL DR 167.99 

PRINTERS & INTERFACES 

STARNP10 147.99 

STARNXIO 159.99 

PANASONIC 10801 167.99 

PANASONIC 10911 187.99 

FORTIS1310(130cps) . . . .177.99 
SUPRA 1150 INTERFACE. . .39.99 

ATARI XETEC 34.99 

ICD PRINTER INTERFACE . . 39.99 
ACCESSORIES 

PR CONNECTION 59.99 

MULTI I/O BOARD 256k ... 1 59.99 
MULTI I/O BOARD 1 mg . . . . 282.99 

ATARI XM301 MODEM 42.99 

R TIME 8 52.99 

AVITEX1200HC 99.99 

AVITEX 2400 BAUD 249.99 

USDOULBERW/ODOS 29.99 

EPYX 500XJ JOYSTICK .... 13.99 

WICOBOSS 13.99 

SUPRA 300 BAUD MOD 37.99 

We Carry All Current Software For 
The ST a Bit 2600 S, 7800 Systems. 
Call Or Write For Free Catalog. 



ATARI 8-BIT SOFTWARE 

FLIGHT SIMULATOR II 32.99 

ULTIMA III 38.99 

F1 5 STRIKE EAGLE 22.99 

MICRO LEAGUE BASEBALL 24.99 

ACE OF AGES 18.99 

PAPERCLIP W/SPELLPACK 37.99 

PRINTSHOP 29.99 

CHESSMASTER2000 27.99 

ATARI WRITER PLUS 29.99 

SYN FILE PLUS 29.99 

COVOX VOICEMASTER . . . .59.99 

BASICXE 37.99 

RAMBOXL 29.99 



A 



ATARI ST 
HARDWARE 

1040 COLOR SYSTEM . . . .847.99 

1040 MONO SYSTEM 687.99 

520 COLOR SYSTEM 617.99 

520 MONO 477.99 

SINGLE DISK DR 117.99 

DOUBLE DISK DR 197.99 

20 MEG HARD DR 537.99 

COLOR MONITOR 287.99 

B/W MONITOR 117.99 

SOFTWARE 

IBM EMULATOR 76.99 

MAGIC SACI 109.99 

COMPUTER EYES 169.99 

CAD 3D 2.0 54.99 

CERTIFICATE MAKER 36.99 

GFA BASIC 52.99 



HOW TO ORDER: CASHIER CHECK, MONEY ORDER, M/\STERCARD- OR VISA" (ADD 4% 

FOR CHARGE CARDS) ... NO PERSONAL CHECKS . . . NO C.O.D. 'S SHIPPED UPS 

ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

SHIPPINO: ADD $3.00 ON ALL ORDERS UNDER SIOO.OO ... ADD S5 00 ON ALL ORDERS 

OVER $100.00 ACTUAL FREIGHT CHARGED ON MULTIPLE ORDERS 

INTEnNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE CONTINEN 

TAL UNITED STATES INCLUDING A.P.O. 



HRS. 10-7 
MON.-FRI. 
■CUSTOMER 
SATISFACTION 
•IS 
OUR BUSINESS 



Computer ElitePO BOX213,GROVEPORTOH43125CALL(614)836-9600 



CIRCLE #109 ON READER SERVICE CARD 



PAGE 28 / OCTOBER 1987 



ANALOG COMPUTING 



5& 4628 DftTft 16,141,255,6,165,205,24,105, 

3,133,205,144,217,230,206,176,213,169, 

0,133,212,96 
ZD 4630 DflTft 104,104,104,141,255,6,104,13 

3,204,104,133,203,160,0,177,203,201,32 

,240,8,200,204,255,6,208 
RE 4640 DflTft 244,160,0,132,212,169,8,133, 

213,96 
01 4650 DATA 216,104,104,133,284,104,133, 

203,104,104,133,205,168,0,177,203,201, 

61,240,11,56,233,1,145,203 
RI 4660 DATA 200,196,205,208,248,96,169,3 

3,288,244 
MZ 4678 DATA tpnf 1 nbudi f t, -1, C f e, -27, tl f M 

fupo,-27,epp5,-27,b!cfeltif fu,27,b! lo j 

gf ,27,b0!prte!0fXtqbqfS,16,U5f f,-28 
QX 4680 DATA b ! q jf df ! pg ! gsu ju, 28, qppM, -13 

,ubCMf,-18,b!ubsojtife!lfz,18,npuoe,-l 

4,b!XSfdlfe!b jsqMbOf ,-37 
HX 4630 DATA tpnf ! CbUUfSjft, 37, tpnf ! hphhM 

ft,37,oftu,-19,c jse,-19,b!sbe jplusbotn 

juufs,-3,wjof ,-9 , „ . .^ 

RB 4700 DATA b ! xppef O ! tubl f , 34, ipMf , 0, b ! t 

f U ! pg I qMbOt , 0, spd 1 , -31, b ! SVtUZ ! t ipwf M, 

26,bo!pCMpoh!tX jUdi,-4 
EF 4710 DATA b ! qbof H, -4, b ! CVSO joh! g jsf , -1 

7,b!«jhiUfe!upsdi,0,tqsjoh,-ll,b!npMez 

!ejbsz,27,hpsvoe,0 , „ „ „ 

5Q 4720 DATA 96,112,112,66,0,0,0,66,0,8,2 

,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 
a ,2,2,65,8,8 



Listing 2. 
BASIC listing. 

CY 18 REM KXKKMXMXXMXKMXKXKltKK 
LM 20 REM * * 

NQ 38 REM » ROOM Description * 
DZ 48 REM » Creator » 
L¥ 58 REM » * 

DD 60 REM XXXXXXXXXXXXXXXXXXXK 

BE 78 REM 

KF 80 DIM TEXTS C255),FLLStl5) 
DH 90 ? CHR$£125):? "Creating Room Descn 
ptions. . ."SPOKE 752,1 



DF 188 TEXT$="Zpv!bSf !tUboejOh!bMpOh!blUi 
jo ' tUSf Udi ! pg ! tboe/ ! XbWf t ! Mbq ! vq ! up ! Ui 
f 'tipsf-! ! !dpwfSj0h!zpv5!gffU/lQbUit!" 




M 158 TEXTSC102)="!b!tboez!qbUiMfbet!upx 

bseiuif Ixftu/" 
CV 160 FLL$="DlR00M.2":G05UB 1688 
GR ■ - - -" - 



BH 



gfsfouiejsfdu jpot/" 
DW 190 FLL$="D:R00M.3":G0SUB 1600 





PT 



ui!Mpx.ibOhjOh!csbOdift!ifSf !" ^^^^^^, 
228 TEKT$C1913="Xi jdilqspwjef iqbttbhf ! 



wq! jOUp!uif ! I ! ! !usf f/" 



£l> 230 FLLS="D!R00M.4":G05UB 1600 

HU 240 TEXTS="Zpu!bSf !tUboejoh!ofbs!uif !u 
pqipg !b! ! ! ! i Vhf ! USf f / ! Pgg ! up ! ui f ! opsui 
-iZPUitf f !bUbMM-!HpOfMZ!npVOUb jo/" 

JE 250 TEXT5C99)="!UifSf ! jtlblMpohWjOf !if 
Sf ! jOUfSXpwfo!XjUi!uif !USffupq/BMtp-!t 
pnf ICSbOdift! ifsf iqspwjef !b! 1 ! !" 

BK 260 TEKT$C191)="qbttbhf !epxo!up!uif !gp 
sftu!gMpps/" 

FD 270 FLL$="D:R00M.5"!G05UB 1608 

IC 288 TEXTS="Zpw!bSf !tUboejOh!ofbs!uif !U 
pqipgSb! ! ! ! i vhf ! usf f / ! Pgg ! up ! Ui f ! opsui 
- ! ZPW ! t f f r bUbMM- ! MpOf MZ ! npVOUb jO/" 

JM 290 TEXTSC99J="!UifSf ! jt!blMpohwjOf !if 
Sf 1 joufsxpwfoix jui !uif !usf fupq/BMtp-lt 
pnf Icsbodift! ifsf iqspwjef !b! ! ! !" 

flZ 300 TEXT$tl91J="qbttbhf !epxo!up!uif !gp 
sftulgMpps/" 

FK 310 FLL$="D:R00M.6":G05UB 1600 

NA 320 TEKTS="Up!uif !tpvui-!zpv!tff luif !n 
bkps! 1 ! M ! IgfbUVSf !pg!Ui jt!bsfb-!b!tqb 
SlMjOh! ! ! ! !0bUUSbM!tqs joh/f BISbq jertZ!" 

DZ 330 TEXT5(i03)="btdfoejOh! MqbUiidMjnc 
t'up'Uif !opsuiXftU/!UifSf ! ! ! jtlblMbShf 
!usf f !t jUVbUfe! ifsf IXjUi! 1 ! !" 

Ill 340 TEXT$C191J="Mpx.ib0hj0h!CSb0dift!x 

^ ijdi iqspwjef! 1 ! iqbttbhf iwql joupluif lUS 

CK 350 FLLS="D:R00M.7":G05UB IBOO 

QA 360 TEXTS="ZpwlbSf ItUboejohlbMpohlblOb 

SSpX'tUSJqlpgltbOe/lXbWftlMbqiVqlpOUpl 

u i f 1 1 i psf- ! dpwf S joh 1 zpus 1 g f f u/ 1 Ui f 1 " 
HN 370 TEXTStl01J="Cfbdil fyufoetlupluif 10 

psuifbtulboeluif !tpyuixftu-l l iboelzpv! 

dbolfoufsluif lebsllgpsftulupl luif 1" 
JD 380 TEXT$C195)="tpvuifbtU/lUplUif lopsu 

i f btu- ! zpy 1 1 1 f f ! b ! Ui jo 1 X jtq 1 pg 1 tnpl f /" 
HK 390 FLLS="D:R00M.8":G05UB 1600 
LB 400 TEXTS="ZpulbSf Ituboejohlofbslbol fo 

psnputlqppMXi jdi 1 jtlpwfsgMpxjOhlXjUi lb 
^ 'CMbdl-! 1 1 icvccMjohlnbtt/lBlCMbdlfofe" 
ILR 410 TEXT$C103J="lqbUilUSbjMtCbdllup!ui 

?. f! opsui/" 

HI* 420 FLLS="D!R00M.9":G0SUB 1608 
KB 430 TEXTS="Zpu! ibwf !e jtdpwfsfelblepxo. 
uspeefo! 1 1 Ibsfblpgluif Igpsftu/lTjhotl j 
oejdbuf !b! Isfdfoulgpsftulg jsf/1" 
kf 440 TEXT$C97)="UifSf 1 jtlblivhf 1 1 lUbOhM 
': f ipgl wjoftiboelxf fet! ifsf/" 
HO 450 fll$="d:room.10":gosub 16O0 
1,11 460 TEXTS="Zpw! ibwf igpuoelblepxo.uspee 
>: fo'bsfblpgluif igpsftu/lBlubohMf ipglwjo 

ftl ibtlCf fOdUUlUiSpUhi 1 i f Sf 1 up 1 Sf Wf bM" 
TC 470 TEXTSti03J="!blopsuifSOlqbttbhf/" 
tZ 480 FLLS="D:ROOM.10A":GO5UB 1600 
HY 490 TEXT$="ZpwlbSf Ituboejohlbuluif Icpu 
upnlpglb! 1 Ituf fql i jM«/!Blqbui Icfh jotl i 
fsf iMfbejOhuqlUif 1 i jMM-lboelb!" 
|;i> 500 TEXTlC96)="tpvuifbtUfSOlqbUil lUSbj 

ntlcbdl lupxbseluif Itqs joh/" 
HA 510 FLLS="D:R00M.11":G05UB 1688 
Lt 528 TEXTS="Zpv!bSf ItUboejOhlpolUif !fbt 
uf SO ! f ehf 1 I pg 1 ui f 1 jtMboe/ 1 Xbwf 1 1 Mbq 1 v^ 
"bMpohluif I tipsf 1 dpwf s joh izpvslgf fu/" 
M 538 TEXTSCie2)="lB!qbUi!Mfbetvqluif ICf 
bdi ! up luif! opsui !boe!b! 1 ! ! 1 ! lopsuixftu 
fSOiqbttbhf iMfbetlCbdl lupxbse!" 
RB 548 TEXTSCi91J="uif mpvoub jo/" 
OB 558 FLL$="D:R00M.i2":G05UB 1600 
KZ 560 TEXT5="Zpv!bSf ItUboejOh! joluif in je 
e«f 'pglb! 1 leftfsufe-lobujwf !wjMMbhf/!U 
p'Uif ! fbtu! jtlbltnbMMl ivulboelbl" 
J5 570 TEXT$(98)="CMbdlfOfelqbUi 1 ! iMfbet! 
tpvui/lUifSf 1 jtlblg jsf 1 ifsf luibu jtltfo 
ejohltnplf ! i jhi 1 joupluif Ibjs/" 
P« 580 FLL$="D!R00M.13":G05UB 1600 
LC 590 TEXTS="Zpvl ibwf ItvqsjtfelblUSjCf ip 
glgjfsdf 1 1 Itbwbhft/lUif jsl jojUjbMltvqs 
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jtf ixfbsjohpgglru jdlMZ-iuifz! 1 jmm!" 
OS 686 TEXTS CieO)="'zpv=" 
ITS 610 FLL$="D:R00M.13ft":G0SUB 1688 
RO 628 TEKT$="Ui jt>tnbWM!ipwfMi!vtVbMHZ!ip 

Vtftluif ! ! IWjMMbhf ttldi jfgubjo/! Ju! jt! 

OfbSMZ! r ! ! ! fnquz-!uif ipOMZiopu jdfbCMf" 
VO 638 TEXTSt93)="opujdfbCHf igfbUVSf ! ! MC 

f JOh!b!tnbMH!ubCMf ! Joiuif ! dfoufslpg! !u 

if! iVU/" 
PH 648 FLLS="D;R00M.14":G05UB 1688 
SQ 650 TEKT$="Zpv!bSf Ituboe jOh!bU!uif !upq 

ipg.'Uif ! ! ! !MpofHZ!npvoubJO/!QbUit!Mfbe 

lepxoluif ! !npvoubjD!boe!up!uif ! fbtu/" 
GG 668 TEKT$fl82)="rTjUU job! ! ! ! lofbSCZipo 

iupqlpgibo! jtpMbUfeidSbh! jtibdsvef loft 

U/IUifSf f jtlbiMbShf !c jse! ifsf !" 
m 678 TEKTSC191)="hVbsejOh!uif loftu/" 
QH 688 FLL$="D:R00M.15":G05UB 1608 
BY 630 TEKT$="Zpu!bSf ituboe johlbuiuif !upq 

!pg!uif ! ! ! iMpofMZlnpvoub jO/!QbUit!nfbe 

lepxoiuif ! !npvDubJo!boe!up !uif ! fbtu/" 
HW 788 TEHT$Cie23="!TjUUjOh! !!! lofbSCZipo 

iupqipgibo! jtpnbufeidsbh! jtlbdsvef !oft 

u/" 

PF 718 FLL$="D:R00M.15A":G05UB 1688 

ZZ 728 TEXT$="Zpv!bSf IXbMl jOh!bMpohrb!spd 

IZiqbUi ! ! ! ! ifbe job! f btuxbse ! bxbz ! gspn ! 

uif!MpofMz!npvoubjo/!Jo!gspou!pg!" 
PI 730 TEXT$t99)="zpv! jt!b!gpslfe!qbui-!x 

jui !pof iqbttbhf ! i f be Job ! up ! Ui f ! fbtulbo 

e'Uif !puifs!MfbeJOh!up!uif !■■ 
MU 748 TEXTS(186)="! ! ! ! Itpvuifbtu/"' 
RB 758 FLL$="D:R00M.16"!G0SUB 1688 
LM 768 TEXT$="Zpv!bSf !tUboeJoh!po!uif ifbt 

ufsolfehf r ipgluif ! jtMboe/!Xbwft!nbq!vq 

IbHpohiUif itipsf Jdpwfs joh!zpvs!gf fu/" 
AB 770 TEXT$C102J="!B!qbUi!Mfbetepxo!uif ! 

Cfbdi !up!uif ftpvui !boe!b! ! ! ! Ixftufsolq 

bui !nfbet!Cbdl ! upxbse ! Ui f ! " 
K« 788 TEXTSC188)="! ! inpvoubjo/" 
SC 798 FLLS="D:R00M.17"!G0SUB 1608 
UM 800 TEXT$="Zpv!bSf !tUboejOh!bMpoh!b!ui 

joitUSfUdi !pg!tboe/!XbWft!Mbq!vq!up!ui 

f Itipsf-! ! !dpwfSjoh!zpvs!gf fU/!Uif !" 
MS 810 TEXT$tl01)="cfbdi! fyufoet!up!uif 'o 

psuiXftu!bDe!zpu!dbO!tf f !uif ! !ebsl !gps 

ftu!up!uif ! fbtU/!Up!uif !tpvui-b!" 
UT 820 TEXT$C193)='"tnbMM!dbC jo! ibtlcf fold 

potusvdufe/" 
5K 830 FLL$="[):R00M.18":G0SUB 1600 
RZ 840 TEXT$="Zpv!bSf Itpnfxifsf ! joluif !nj 

etu!pg!b! ! !ebsl!gpsftu/!Zpv!tf fn!up!cf 

!Mptu/!Uif lopj^tftlpglgpsftulefoj^fot'- 
JI 850 TEXT$C102)="!sjtf !boe! ! ! IgbMHibspv 

0e!zpu/!TfWfSbM!qbUit! ifbe! ! !pgg! jo!ej 

,, ggfsfou!e jsfdujpot/" 

P860 FLL$="D!R00M.19":G05UB 1600 
870 TEXT$="Zpv!bSf !tpnfxifsf ! jo!uif !nj 
etu!ps!b! ! !ebsl ! gpsf tu/ ! Zpv ! tf f n ! up ! c f 

!Mptu/!Uif !opjtft!pg!gpsftu!efoj»fot" 

880 TEXTSC102)="!Sjtf !boe! ! ! !gbMM!bspv 

0e!zpv/!TfWfSbM!qbUit! ifbe! ! !pgg! jo!e j 

ggf sf ou ! e jsfdujpot/" 

890 FLL$="D!ROOM.20":GO5UB 1600 

900 TEXT$="Zpw ! bsf ! tuboe joh ! Xb jtU ! e f f q 

! joiuif ! ! ! !obuvsbn! tqs joh/!Uif !xbufsti 
S jqquf ! bMM! bspvoe ! zpv ! jo ! Wbs jpvt ! " 
910 TEXTS (99J="qbUUf sot/ !Uoefs!uif!tVS 
gbdf !pg!uif !xbUfS-!zpv!dbo! ! ! ! iefufdu' 
biebslitibqf/" 

920 FLL$="D:R00M.21"!G0SUB 1600 
930 TEXTS="Zpv!ibWf ! f OUf sf e ! b ! Mbshf- ! v 
oefshspvoe!dbwf/!Evtu! ibt! tfuunfe! ifbw 
jMZ! ifsf !btopui johitf fnt!up! ibwf !" 
940 TEXTS (99)="cffo!ejtuvscfe! !gps!nbo 
z!zfbSt/!Zpv!dbo!sf foufs!uif ! ! !xbufs!u 
p!uif !tpvui/" 
OK 950 FLLS="D:R00M.22":G0SUB 1600 



JIO 



HS 
NO 



PO 



JE 



SG 



ef 960 TEXTS="Ui jt!tnbMM!dbC jo!tffnt!up!i 
bwf !cffo! ! ! ibtujMz! f Sf duf e/ ! Fwf szui Joh 
! jt! jO! ! ! ! !ejtbSSbZ/!Uif !p0MZ!" 
JL 970 TEXTS(96)="opubCHf !gfbUVSf ! jt!b!tn 
bMn!cfe!x jui !b!tl fnfupolpo! ju/!Uifcfbd 
i ! jt!up!uif !opsui-!xi jHf !up!uif !" 
VV 980 TEXTStl88)="! ! !fbtu-!zpu!tff !b!cbd 

1 iepps/" 
PY 990 FLLS="D:R00M.23":G0SUB 1600 
SO 1000 TEXTS="Ui jt!pvu!pg!uif !xbZ!qHbdf ! 
f OdMpt f t ! b ! ! c f bvu jgvH! hbsef 0/ ! Ubhin! gsv 
julusf ft !boefypu jd!qMbout!bcpvoe/!" 
YT 1010 TEXTSC99)="0fbs!uif !cbdl!pguif !hb 
sefo! jt!b!nbkftu jdiusf f lepuufe! !xjui !h 
pwefolgsv ju/!Zpv!dbo! tf f !uif ' > "" 
XD 1020 TEXTS(191J="ebSl «gpsftu!up!uif !op 
sui !boe!uif!cbdl !epps! jt!pqfo!up'Uif'x 
ftu/" 
K& 1030 FLL$="D:R00M.24":G05UB 1608 
DD 1040 TEXTS="B!tbMU!njtu!tqsbZt!poup!zp 
VS!gbdf !bt! ! zpv! tuboe! ifsf!bu!uif!fehf 
!pg!uif !tfb/Up!uif !fbtU-!zpv!opujdf !" 
BM 1050 TEXTSC101)="b!gpsfcpejOh! !dbwf !ui 
bu ! nztuf s jpvtMZ ! dbMnt ! up ! zpv/ ! ! Zpv ' dbo 
! Sf foufs!ui f !gpsftu!up!uif '" 
Bit 1060 TEXTStl86)="! ! ! ! lopsui/" 
LJ 1070 FLLS="D:R00M.25":G0SUB 1600 
FP 1080 TEXTS="Bt!zpv!fOUfs!ui jt!ebsl!dbw 
f !zpv!bsf ! ! !ofbsnz!pwfsdpnf !cz!b!gnvuu 
fs j0h!nbtt! !pg!tibqft-!xi jdi ! tpvoe ! " 
RK 1090 TEXTSC10O)="Mjlf !cbUt/!Tpnfqpsujp 
Ot!pg!uif !dbwf !bsf ! jMMVnjObUfe! !cz!cfb 
nt!pg!tVOMjhiu!ti jo joh!uispvhi ! ' " 
FM 1100 TEXTS(191)="VOlOpxo!qffq.ipMft/" 
LH 1110 FLLS="D:R00M.26":G05UB 1600 
AQ 1120 TEXTS="DbSSZjoh!zpvs!upsdi-!zpv'b 
Sf !bCHf !up! !tff !bHM!qbSUt!pg!uif !dbwf/ 
! Spdlt!boe! !efCS jt!bsf ! tusfxo'" 
UU 1130 TEXTSC95J="fwfszxifsf/!Jo!b' I " icb 
sfnziefufdubcnf !dpsDfs!pg!uif !dbwfsozp 
v!tf f !b! ib«g, i jMMfe! ipMf/" 
HO 1140 FLL$="D:R00M.26A":G05UB 1600 
HA 1150 TEXT$="Zpv!bSf ivoefsxbufs! jo!uif I 
ObUVSbM! ! ! ! !tqsjOh/!B!MbShf ispdl !ibt!c 
f fo!np«fe! ! !ifsf-!dMfbsjoh!b!" 
AO 1160 TEXTS(94)="qbttbhf !epxoxbse/" 
HZ 1170 FLLS="D:R00M.27":G0SUB 1600 
DS 1180 TEXTS="Zpv!ibWf !foufsfe!b!xbUfSZ> 
xpsMe!pg! ! ! !gvt«z!tibqft!boe!e jtupsufe 
!ejtubodft/!Tjodf !xbUfs!gjMMt!zpvs'" 
UK 1190 TEXTSC100)="fzft-!zpv! ! ! ! ! ibsfotu 

! bCMf !up!nblf !pvu!b0ZUi job/" 
HV 1200 FLL$="D:R00M.27A":G05UB 1600 
TM 1210 TEXTS="Zpv!bSf !voefSXbUfs! jo'Uif I 
ObUVSbM! ! ! ! !tqsjoh/!Uif !gMpps!pg!uif It 
qsjoh! jt! ! ! !sfMibU jWfMZ!cbSf ! fydfqu'" 
HW 1220 TEXTStlO0)="gps!b!MbShf ! ! ! !spdl'X 
i jdi !tf fnt!up!cf !cnpdl joh!tpnf ! ! tpsu!p 
g ! epxoxbse ! qbttbhf /" 
PC 1230 FLLS="D:R00M.27B":G0SUB 1600 
CP 1240 TEXTS="Zpv!bsf Itxjnnjoh! jo!bo!voe 
fshspvoe! ! ! !tUSfbn/!XbUfs!svtift!cz!zp 
v!xjui !b! ! ! ! op jtf ! tp ! Mpve ! ju ' " 
FP 1250 TEXTSt94}="uisfbufOt!up!efbgfoi iz 
pv/!Uif !dVSSfOU! jt!wfSZ!tuspoh!boe! ! 'd 
pVMe ! dbssz ! zpv ! jo ! bMnptU ! boz ' " 
KM 1260 TEXT$tl83J="eftjSfe!ejSfdUjpo/!Zp 

v!tfotf !b!e jn!hnpx!gspn! !bcpwf/" 
HV 1270 FLLS="D:R00M.28":G05UB 1600 
DU 1280 TEXTS="Zpv!ibWf !foufSfe!b!xbUfSZ^ 
xpsKieipg! ! ! !gv«tz!tibqft!boe!ejtupsufe 
!ejtUbOdft/!Tjodf !xbUfs!gjMMt!zpvs'" 
BO 1290 TEXT$C10O)="fzft-!zpv! ! ! ! ! !bSfO{U 

! bCMf !up!nblf !pvu!bOZUi job/!" 
OU 1300 FLL$="D:R00M.28A"iG05UB 1600 
CI 1310 TEXTS="Zpv!bsf !txjnnjoh! jo!bo!voe 
fshspvoe! ! ! !tusfbn/!XbUfs!svtifticz>ZP 
V!xjUi!b! ! ! !opjtf !tp!Mpve! Jul" 
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FI 



KP 

01 
DN 



BH 
&5 






FK 



KR 

n 



|8J 

Lft 
l>F 



SBF 



HY 

01 



BC 

LH 
KI 



S5 



MF 
LB 
CB 

KY 



1320 TEKT$t54)="UiSfbUfOt!up!efbgfo! !z 
pv/lUif IdVSSfOU! jtl Wfsz! tuspohiboe! ! !d 
pvMe!dbssz!zpv! joibunptulboz!" 
1330 TEXT$C183)="eft jSfe!ejSfdUjpo/!Zp 
V ! t f ot f ! b ! e jn I hMpx ! gspn ! ! bcpwf /" 
1340 FLL$="D:ROOM.29":GOSUB 1500 
1350 TEXT$="Zpv! ibwf ! f ouf Sf e ! b ! Xbuf SZ ! 
xpsMe!pg! ! ! !gu*»z!tibqft!boe!ejtupsufe 
!ejtUbOdft/!TjOdf !xbUfs!gj«Mt!zpus!" 
1360 TEXT$tl0O)="fZft-!zpv! ! ! ! ! "bSfoCu 
! bCMf ! up I nbl f ! PVU ! bOZUi job/ ! " 
1370 FLL$="D:ROOM.29A":G05UB 1600 
1380 TEXT$="Zpv ! ibwf ! f OUf Sf e ! b ! tnbMM! d 
bwf !Mpdbufe!gbs!voefshspvoe/!TMjnf !boe 
! s f gvt f ! gspnpwf s ! ui f ! zf bst I ibt ! " 
1390 TEXTS C96)="hbUifSfe! i f Sf / ! Zpv ! dbo 
!sf foufsluif !xbufs!up!uif ! fbtu/" 
1400 FLL5="D!ROOM.30":GO5UB 1500 
1410 TEXT5="Zpv!bSf !tx jnn job! joibo! voe 
fshspvoe! ! ! !tUSfbn/!XbUfs!SUtift!CZ!zp 
ViXjUi !b! ! ! lopjtf !tp!Hpve! ju ! " 
1420 TEXT$C54)="UiSfbUfOt!up!efbgfo! Iz 
pu/IUif IdVSSfOU! jt! Wfsz! tuspohiboe! ! !d 
pVKie ! dbSSZ ! zpv ! jo ! bwnptu ! bOZ ! " 
1430 TEXT$ C183) ="e f t jsf e ! e jS f dU jpo/ ! Zp 
y ! t f ot f ! b ! e jn ! hHpx ! gspn ! ! bcpwf/" 
1440 FLLS="D;R00M.31":G0SUB 1500 
1450 TEXT$="Zpv! ibWf ! f OUf Sfe ! b ! Xbuf SZ ! 
xpsMe!pg! ! ! !gv4*z!tibqft!boe!e jtupsufe 
'ejtUbOdft/iTjOdf !XbUfs!gjM«t!zpvs!" 
1460 TEXT$C10O)="fZft-!zpv! ! ! ! ! ibSfoCu 
! be Mf ! up ! nbl f ! pvu ! bOZUi job/ ! " 
1470 FLLS="D!RO0M.31fl":GO5UB 1600 
1480 TEXT$="Zpu!bSf !tx jnn job! jo!bo!uoe 
fshspvoe! ! ! !tUSfbn/!XbUfs!svtift!cz!zp 
v!XjUi!b! ! ! !opjtf !tp!MPUe! ju!" 
1490 TEXT5C94)="UiSfbUfOt!up!efbgfo! !z 

~ ' ' ! d 



if= COMPUTER CREfiTIOHS =i 

YOUR DTffll 8-BIT SUPPORT GEHTER 



pv/!Uif !dVSSfOU! jt!wfSZ!tUSpoh!boe! ! ! 
pvMe!dbSSZ!zpv! jo!bMnptu!bOZ!" 
1500 TEXT$C183)="eftjSfe!ejSfdUjpo/" 
1510 FLL$="D:ROOM.32":G05UB 1600 
1520 TEXT$="Zpv ! i bwf ! f OU f Sf e ! b ! Xbuf SZ ! 
xpsMe'pg' ' ! !gv*»z!tibqft!boe!e jtupsufe 
' e Jtubod f t/ ! T jod f ! Xbuf S ! g jMMt ! zpvs ! " 
i530 TEXTSClO0)="fZft-!zpv! ! ! ! ! !bSfoCU 
! bCMf ! up ! nb 1 f ! pvu ! bOZUi job/ ! " 
1540 FLL$="D:R00M.32ft"!G05UB 1600 
1550 TEXT$="Zpv!ibWf !dpnf !bdsptt!bo! jn 
nfotf 'bsfb! !pg!tdpsdife! fbSUi/!Uif !hsp 
voe' jt! ! ! ! ! !efwp je!pg!qMbou!Mjgf !gps!" 
1560 TEXTSC1023="tfWfSbM!Zbset jo! fWfSZ 
'ejSfdUjpo/!UifSf ! jt!Uif !tifMMpg!b!xsf 
dlfelbjsqMbOf !ifSf/!B!qbUi! ! ! !nfbet!" 
1570 TEXT$tl97)="Cbdl!up!uif !tpvui/" 
1580 FLL$="D:R00M.33":G05UB 1500 
1590 ? :? CHR$f253J:? "Finished !": POKE 

1600'P05ITI0H 2,3:? FLUS (3J ; " ";:0PEN 
ttl,8,0,FLL5:PRINT «1; TEXTS : CLOSE »1 : RE 
TURN 



ACCESS 


KYAN 




Leaderboard Golf 


26 


Kyan Pascal 


49 


Tournament Disk 


14 


System Utilities 


34 


Triple Pack 


14 


Atari Advance 


34 


ACCOLADE 


LANCE HAFFNER 




Hardball 


20 


3 In 1 Football 


27 


Fight Night 


20 MICROLEAGUE 




ARTWORX 




Baseball 


26 


Bridge 4.0 


16 


General Manager 


26 


Compubr Idge 


16 


Team Player Disk 


14 


strip Poker 


20 


mCROPROSE 




Female Disk 


14 


Silent Service 


27 


ATARI 




F-15 Strike Eagle 


23 


Atarlwrlter Plus 


35 


Kennedy Approach 


23 


Proofreader 


12 


Conflict In Vietnam 


26 


Star Raiders 11 


13 


Crusade in Europe 


26 


Silent Butler 


19 


Top Gunner 


17 


Planetarium 


17 


rtlNDSCAPE 




BRODERBUND 




Bob 'N' Wrestling 


20 


Pr Intshop 


29 


OSS 




Prlntshop Companion 


26 


Action 


47 


Prlntshop Graph. 




Action Tool Kit 


19 


Library 1,2,3 


n 


Basic XL 


38 


Syncalc (130XE) 


33 


Basic XL Tool Kit 


19 


Syn£lle+ 


33 


Dos XL 


19 


Syncalc Template 


15 


Basic XE 


47 


Syntrend 


25 


Mac 6 5 


47 


DATASOFT 




Mac 65 Tool Kit 


19 


Alternate Reality 


IS 


SUBLOGIC .-. 




Mind Pursuit 


12 


Flight Simulator II 


37 


Mercenary 


20 


Scenery-San Fran. 


15 


Never Ending Story 


12 


Scenery-Japan 


15 


Crosscheck 


20 


Scenery 11 thru 16 


15 


Theatre Europe 


22 SUPRA 




221 B Baker St. 


20 


MPP 1150 


39 


Gunsllnger 


20 


Microprint 


29 


FIREBIRD 




X-LENT 




Pawn 


29 


Typesetter 


22 


Mach 2 


17 


Rubber stamp 


19 


HAPPY 




Page Designer 


19 


Happy Enhancement 


99 


Megafont II 


17 






P,S. Interface 


19 


ICD 




First X-lent Word 








Processor 


19 


Printer Connection 39 


Miniature Golf + 


19 


U.S. Doubler w/o 








Spartados 


29 






U.S. Doubler w/ 




CALL 




Spartados 


49 






Rambo X/L 


29 






Sparta Dos Con- 




FOR 




struction Set 


29 






R-Tlme 8 


49 


HARDWARE 




P:R: Connection 


59 







PRICES 



To order call TOLL FREE 

1.800-824-7506 



P.O. BOX 493- DAYTON, OHIO 45459 txS 

For information, order inquiries, or lor Ohio orders (513) 435-68S6 
Order Lines Open 9 am lo9pm Mon-Fn 10 am to4 pm Sal (EaslernSlandaid Timel M^imumSlSpei 
Mdef COD (3dd$3 00) Please specilycompuletsyslem CaUlolirttenumtieilovetitvpucesandavaiiatHlily 
or proOud Piices and availabilily aie subiecl lo Charlie wilhoul nolice We shio C lo Conlmenlal U S 
addiesses ixil/ Please include ^% shipping on all Haidwaie o(deis(min W 001 Sotlwaie and accessories add 
$3 00 shipping and handling in Conlinenlal U S Aclual Ireighl will be chaiged oulside U S to include Canadi 
Alaska. Hawaii. Puerto Rico and APO Oho lesidems add 6% sales lax Canadian orders 5% shipping (Mm 
15 001 All olhei loreign ordeis please a*! 15* shipping (Mm JIOI Fo immediate delivery send cashier s 
check money order or dired bank liansleis Personal and company checks allow 3 weeks lo clear School 
purchase orders welcome Due 10 out k>w prices, all sales aie hnal NO CHEDIIS All deleclive lelurns must 
have a return auihomalion number Please call (51 31435 6868 lo oDlam an BA» or your relurn wil not be 
accepted lor leplacemenl or repair 
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UTILITY 



Q 



M/L Editor 



For use in machine language entry. 



by Clayton Walnum 



M/L Editor provides an easy melhod to en- 
ter our machine language listings. It won't al- 
low you to skip lines or enter bad data. I'br 
convenience, you may enter listings in mul- 
tiple sittings. When you're through typing a 
listing with M/L Editor, you'll have a com- 
plete, runnable object file on your disk. 

There is one hitch; it's for disk users only 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and. vvhen it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C; to continue. 

You'll then be asked for a filename. If you're 
starting a new listing, type in the filename 
you want to save the program under, then 
press RETURN. If there's already a file by that 
name on the disk, you'll be asked if you wish 
to delete it. Press V to delete the file, or N 
to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for mother file- 
name. Otherwise. M/L Editor will calculate 
where you left off. then go on to the data en- 
try screen. 

Each machine language program in ANA- 
LOG Computing is represented by a list of 
BASIC data statements. Every line contains 
Ki bytes, plus a checksum. Only the numbers 
following the word DATA need be con- 
sidered . 

M/L Editor will display at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 
type the number and press RETURN. If you 
press RETURN without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines whh repetitions of the same number 
As an added convenience, the editor will not 
respond to the letter keys (except Q, for 
"quit"). You must either enter a number or 
press RETURN. 



When you finish a lino, M/L Editor will 
compare the entries' checksiun with the 
magazine's checksum. If they match, the 
screen will clear and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red. 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number's 
correct, press RETURN. 

If you find an error, make the correction. 
When all data's valid, the screen will return 
to grey, and you'll be allowed to begin the 
n(!,\t line. 

Make sure you leave yom- disk in the drive 
while typing. The data is saved continuously 

"ibu may stop at any time (except when you 
have a red screen) by entering the letter Q foi- 
byle #1. The i'ile will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the I, option. Some jirograms may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when vou boot the disk, simplv name 
the file AUfORUN.SYS (maJ^e sure you have 
DOS on the disk). 

That's M/L Editor. LIse it in good health. H 



The two-letter checksum code preced- 
ing tlie line numbers here is nol a part 
of the BASIC program. For fiu-ther in- 
formation, see the "BASIC Editor II," in 
issue 47, 



Listing 1, 
BASIC listing. 



tiZ 10 DIM BF(161,NS(41,A$C1I,B$(1],FS(15I 

,Fl$tl5) 
LF 11 DIM M0D$C4) 
BM 20 LINE=1000;RETRH=155!BISCK5P = 126!CHK5 

UM=8:EDIT=0 
CO 30 G05UB 450!P05ITI0M 10,617 "Start or 

[Hontinue? "jiGOSUB sooi? chr$co] 



ZG 40 POSITION 10,8:? "FILENflME") : INPUT F 

$!POKE 752,1:? " " 
FE SO IF LEH(F$><3 THEM POSITION 20,10:? 

" ":G0T0 40 
NF 60 IF F$a,2J <>"»:■■ THEN F1S="D : " : FIS C 

3)=F$!G0T0 SB 
KL 70 F1S=FS 

TN 60 IF CHR$C(1)="S" THEN 120 
FD 90 TROP 430:0PEN tt2, 4 , 0, FIS I TRdP 118 
HQ 100 FOR K = l TO 16:GET n2,(l:HEXT K:LIHE 

=LINE+10!G0T0 100 
HH 110 CLOSE t)2:0PEN a2, 9, 8, FIS ; GOTO 170 
UT 120 TROP leOiOPEN B2, 4 , 0, FlS : G05UB 440 
:P0SITI0N 10,10:? "FILE ALREftDV EXISTS 
I !"rP0KE 752,0 
ZU 130 POSITION 10,12!? "EROSE IT? "j:GOS 

UB SOOtPOKE 752,1:? CHRS (flj 
VH 140 IF CHRSCO)="N" OR CHRSt(13="n" THEN 

CLOSE »2:G0T0 30 
QG 150 IF CHRS((H<)"Y" AND CHRS CflJ <> "JJ" T 

HEN 138 
BH 160 CLOSE J12;0PEN 112, 8,0, FIS 
^^ A^l GO SUB 450;P05ITI0N 18,11? " I.'lil!»ir» 

SES-- ";LINE;CHKSUM:0 
GH 180 Ll=3lF0R K=l TO 16:P05ITI0N 13»(X< 
101tl2»(K>9),X+2:POKE 752,8:? "BYTE it" 
;X;": "; IGOSUB 310 
KH 190 IF EDIT AND L=0 THEN BYTErBF CK) : GO 

TO 210 
FY 208 BYTE = UI)L(NS) 
OZ 281 MDDS=NS 

BU 218 POSITION 22,Xt2:? BYTE;" " 
YZ 220 BFCX)=BYTE:CHKSUM=CHK5UM+BYTE»X:IF 

CHKSUM>9999 THEN CHK5UM:CHK5UM-10000 
MS 230 NEXT X i CHK5UM=CHKSUHtLINE : IF CHKSU 

M>9999 THEN CHK5UM:CHKSUM-10008 
IG 240 POSITION 12,Xt2lP0KE 752,8:? "CHEC 

KSUMl "; :L1=4:G0SUB 310 
EM 250 IF EDIT 6HD L=8 THEN 278 
QM 268 C=UOLtHS) 

SY 278 POSITION 22,Xt2:? C;" ■• 
IL 280 IF C=CHKSUM THEN 300 
pi 290 COSUB 448:EDIT=l:CHK5UM=e!G0T0 188 
LH 300 FOR X = l TO 16:PUT tJ2, BF (X) ; NEXT X: 

LINE=LINEtlO:EDIT = 0:GOTO 178 
FU 318 L=8 

KZ 328 GOSUB 500:IF {fl:OSCC"Q") OR = (1SCC 
„„ 'J3'J" AND X = l AND NOT EDIT THEN 428 
PO 338 IF AORETRN AND AOBACKSP AND tA<4 

8 OR fl>57) THEN 328 
DX 331 IF A=RETRN AND NS="" THEN NS=MODS 
TD 335 IF A=RETRN AND L=B AND X>1 THEN 35 

8 
JR 348 IF (tA=RETRN AND HOT EDIT) OR A=B 

OCKSP) AND L=0 THEM 320 
DM 358 IF A=RETRN THEM POKE 752,11? " ";R 

ETURN 
CG 360 IF AOBACKSP THEM 408 
SA 370 IF L>1 THEN NS=NS (1, L-1) : GOTO 390 
AS 380 NS="" 

RE 390 ? CHRS(0ACK5P); :L=L-1:G0T0 320 
BB 408 L=Ltl:IF L>1,1 THEM A=RETRN:GOTO 35 

8 
MX 418 NS[L)=CHRSCA) :? CHRS tA) ;: GOTO 328 
KN 428 GRAPHICS 0:EHD 

YT 430 GOSUB 440;P0SIT10N 10,101? "HO 5UC 
H FILE!"1F0H X=l TO 1008!NEKT XlCLOSE 
n21G0T0 38 
FD 448 POKE 710,48lS0UND 8, 100, 12, 8 1 FOR X 

=1 TO SOINEXT X:SOUND 0, 8 , , 8 : RETURN 
MY 458 GRAPHICS 23:P0KE 16,112;P0KE 53774 

,112:P0KE 5S9,0:P0KE 710,4 
XR 460 DLi:PEEKC560)+256*PEEKt561)t4:P0KE 

DL-1,70:P0KE DL+2,6 
HH 470 FOR X=3 TO 39 STEP 21P0KE DL+X,2:N 
EXT X:F0R K = 4 to 40 STEP 2:P0KE DL^^X.S 

ZH 480 POKE DLt41,65!P0KE DL+42 , PEEK tS6e) 
IPOKE DL+43,PEEKC561>tP0KE 87,0 

AC 490 POSITION 2,0:? "analog nl editor": 
POKE 559,341RETURH 

"Z =g» JPEN ni,4,o,"Ki":GET »i,a:close ni 
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ANALOG COMPUTING 



FEATURE 




A look at 
Computalk 



An above-average 
Texas bulletin board. 




by Andy Eddy 



In this day and age, personal computer 
telecommimications is a popular item, be 
it on free local bulletin boards (BBSs) or 
the potentially expensive on-line services 
like GEnie and Delphi. With prices drop- 
ping on equipment such as modems, soft- 
ware and, especially, the computers them- 
selves, plus increasing choices, many are 
catching "terminal fever." Since it's sim- 
ple for someone to put together an inex- 
pensive setup, many are doing it: getting 
additional phone lines in their homes to 
run inexpensive, bare-bones BBSs of their 
own making. 

Every once in a while, you'll come 
across a BBS that displays an especially 
strong labor of love for sharing the tele- 
communications bug with other users. 
And there's no doubt that Kris Meier's 
Computalk in Fort Worth, Texas, fits that 
bill. 

There are other ways his board stands 
out, both in innovation and the sheer 
quantity of available features, making it 
one of the more interesting independent- 
ly tun boards in the country. 

The 25-year-old Meier is ambitious in 
his endeavors. He's taken an AMIS (Atari 
Message Information System) public do- 
main BBS program and reworked it (he's 



currently at version 6.0) to fit all the data 
and menus that make up the system, as 
well as all the features necessary to allow 
six users on-line simultaneously. A look 
at Meier's equipment list will bring back 
memories of the pre-Delphi, ANALOG 
Computing TCS board: 1 CORVUS 20- 
meg hard drive; 1 CORVUS multiplexor; 
6 Atari 800 computers (48K); 6 Atari 850 
interfaces; 1 Atari 1050 disk drive; 6 DAK 
300/1200 modems; 1 ProWriter printer; 2 
green monitors; and 1 color monitor. 

The main attraction is, of course, what 
you have at your fingertips when you call 
Computalk. Claiming he "can't stand stag- 
nation," Meier has packed the board with 
much variety; in fact, he's persistent in his 
ongoing quest for something new and 
fresh. 

Some of the things which Computalk 
has on-line include: religion forum; 
games; electronic mail; libraries for 
downloading ST and 8-bit software; sur- 
veys; computer news and other informa- 
tion; thorough help screens for each 
section; an on-line newsletter, "Compu- 
Gabber"; and free file uploading. 

The features follow along the lines of 
most standard BBSs, but there are some 
other niceties that are more innovative. 
Altogether, they help make Computalk a 
hybrid; something akin to crossbreeding 



a BBS and an on-line network. Intercom 
mode is an example of one such function, 
letting users pass private, one-line mes- 
sages amongst themselves in real time, 
much like the SEND command on Delphi, 
or GEnie's NOTIFY. 

In the same vein, Compu-Gab is Com- 
putalk's answer to the major on-line net- 
works' conferencing mode. Perhaps the 
biggest draw to most telecommunications 
services, conferencing permits a number 
of users to gather for simultaneous discus- 
sion of the latest events, to ask and answer 
questions, or just to chat. Compu-Gab is 
no different; in it, you can converse with 
any or all of the five other users in real 
time. It's a nice touch, as, normally, things 
like this don't appear on BBSs. 

Atari's Darryl May, a customer support 
representative, stops by once a week to 
field user queries. Meier hopes that May 
will be writing a column on Atari happen- 
ings for the board. 

Easily one of the most refreshing and 
reassuring aspects for 8-bit users is that 
Computalk caters to their precious ma- 
chines throughout the board. As noted in 
the equipment list above, the board is run 
entirely on 800s, and has enhanced 
graphic displays for those who log on in 
ATASCII mode (though any computer can 
access the system and run through it in 



ANALOG COMPUTING 



OCTOBER 1987 / PAGE 33 



^ Computalk 



continued 



ASCII mode). Meier plans to institute a 
flag of sorts to tell users when a menu 
selection is ATASCII only, as is the case 
with the entry screen following log-on 
(which can be viewed from the database 
area). 

Another ATASCII-enhanced product is 
an offshoot of the perennial "Star Trek" 
game. Called Computrek, it takes advan- 
tage of the 8-bit's graphics, with ships, 
planets and other extraterrestrial fare, 
each represented by its own display icon. 
To add even more excitement, Meier has 
added a multi-user Trek game. He com- 
pares it to a "mini Mega-wars," the very 
popular, multi-user contest which can be 
found on CompuServe. 

And, on the subject of games, there's an 
adventure section for gamers to traipse 
through in search of challenging contests. 
The only annoying feature is that for all 
games except Computrek, you camiot re- 
enter the board and are immediately 
logged off when it's oven This is especial- 



ly bothersome if you're experiencing line 
noise, which could alter your intended 
responses to game questions and bring up 
a less-than-timely demise to youi' session. 
Meier told me he was working on clear- 
ing up this problem, though it was inten- 
tionally implemented to discom-age rapid 
solving of the easier games. To wit: you'll 
soon be able to exit from most games in 
mid-play, slipping back to the main board. 

Meier does charge for access to the 
board, to cover his costs (phone and elec- 
tric bills, for example), though it's only 
$15 for a 6-month stint. Out-of-staters also 
face a toll call for accessing the system, 
though there's a way to limit the impact 
of that, as well. 

Telenet, the packet switching network, 
offers a service called PC Pursuit, that 
provides telecomputing nuts local call ac- 
cess to twenty-five major cities across the 
nation for as little as $25 per month. With 
a PC Pursuit subscription, you can call 
your local Telenet number input your ID 



and password, and have free rein over 
their public data network, to tie in with 
other computers and BBSs in any of the 
areas. It's an inexpensive method for 
keeping in touch with other computer- 
philes in major cities. 

Computalk is accessible through PC 
Pm'suit in the Dallas node (under area 
code 214), and, other than the subscrip- 
tion charges for these two services, the 
only fee you'll face is if the nearest Tele- 
net node is a toll call. Otherwise, youi- call 
to Computalk is treated as a local call. For 
more information on PC Pursuit, call Tel- 
enet at 1-800-TELENET (voice) or 1-800- 
835-3001 (modem). 

To access Computalk, you can dial di- 
rect to 1-817-589-2588 in either 300- or 
1200-baud, and follow the prompts. If you 
type NEW at the ID prompt, you'll be al- 
lowed a 15-minute sample of the system, 
and can subscribe by credit cai'd (Master- 
Card or Visa). Meier will answer questions 
on his voice line at 1-817-595-0094. B 



Computer Visions 



3283 Kifer Road - Santa Clara, CA 95051 

(408)749-1003 Hours 



TUE 
SAT 



FRI 10am-6p 
10am - 5pm 



A 



8-BIT INTEGRATED CIRCUITS 



$4.50 EACH OR 4.00 IN QTY OF 10 



ASS EM REV A 
800 ANTIC 
810 ROM C 
1771 FDC 
1050 ROM 
POKEY 

XL CPU 14806 
PIA 6532 



BASIC REV A 

800 CPU 6502 

VCS TIA 444 

GTIA 

PIA 6520 

RAM 6810 

MPU 6507 

OS ROMS (499B-599B) 



TffiSff 



$12.00 EACH 

ASSEM REV B 
850 ROM B 
XL DELAY 
FREDDIE 
XL ANTIC 
BASIC REV C 
XL/XE OS 
XL/XE MMU 
XE GATE ARRAY 



HAPPY ENHANCEMENT VER . 7 
810 OR 1050 - $99.95 



DISK DRIVES 

ATARI 810 140.00 (130.00) 

ATARI 810 on Plate 100.00 ( 90.00) 
ATARI 810 W/HAPPY 220.00 (210.00) 
B&C 810 140.00 (120.00) 



ATARI 1050 

199.95 

INDUS GT 

199.95 



PRICES IN BRACKETS DO NOT INCLUDE 1/0 OR POWER PACK 



NEW PRINTED CIRCUIT BOARDS WITH PARTS 

800 MAIN WITH CHIPS 10.00 400 MAIN 10.00 

800 16K RAM 10.00 800 POWER 5.00 

810 SIDE WITH D/S 25.00 CPU W/GTIA 10.00 

810 ANALOG 10.00 810 POWER 15.00 



ATARI SPACE AGE 
ATARI STANDARD (2) 
ATARI IRAK BALL 
PADDLE CONTROLLERS 



JOYSTICKS 

14.95 WICO 3-WAY 29.95 

12.00 WICO BAT HNDL 22.00 

25.00 NUMERIC KEYPAD 19.95 

7.50 ST MOUSE 45.00 



'Q DE RE 
ATARI 



DERE 
ATARI 

$10.00 



FIELD SERVICE MANUALS 



ATARI 400/800, 810 
ATARI 800XL, 850, 

1025, 1050 
SAMS 800,800XL, 

130XE,1050 
SAMS 520ST 



25.00 EACH 



20.00 EACH 



19.95 EACH 
35.00 



800/810 POWER PACK 15.00 

1027 POWER PACK 20.00 

1030 POWER PACK 10.00 

800XL/XE POWER PACK 20.00 

2600 POWER PACK 5.00 

520ST POWER PACK 50.00 



800 KEYBOARD 40.00 

800XL KEYBOARD 25.00 

130XE KEYBOARD 35.00 

520ST KEYBOARD 75.00 

1040ST KEYBORD 85.00 

314/354 POWER 35.00 



COMPUTERS & INTERFACE 

ATARI 800 100.00 MPP-1150 INTERFACE 59.95 

ATARI BOOXL 95.00 MPP-1151 INTERFACE 74.95 

ATARI 130XE 149.95 ATARI 850 125.00 



DIAGNOSTICS 

1050 DIAG. DISK 20.00 810/1050 DIAG. CART 25.00 

SALT 800XL CART 25.00 SALT 400/800 CART 25.00 

5-1/4" ALIGNMENT 40.00 3-1/2" ALIGNMENT 50.00 




PUBLIC DOMAIN 
SOFTWARE FOR 
8-BIT AND ST 
5.00 PER DISK. 
WRITE OR CALL 
FOR COMPLETE 
LIST 



lllllllllllllllllllllll 



< 



NEW II 1050 SUPER ARCHIVER CHIP $69.95 



ST INTEGRATED 


CIRCUITS 






DISK CONTROLLER WD1772 


25.00 


DMA CONTROLLER 


26 


00 


PHOTO COUPLER PC900 


2.95 


MMU 


28 


00 


YAMAHA SOUND CHIP 


10.00 


VIDEO SHIFTER 


26 


00 


6850 ACIA 


3.95 


GLUE CHIP 


2R 


00 


68000-8 CPU 


27.00 


68901 MPF 


16 


00 


KEYBOARD CHIP 


15.00 









lllllllllllllll 



lllllllllllllll 

$39.95 



TERMS 



Calif. Res. add? % sales tax. No ordersunder$ 20. Weship UPS ATT CATTT'C T7T1VTAT 

COD, Prepaid, Mastercard and Visa. Add shipping ($5.00 minimum) ^ '^ *-' ^A LilLii t 1 IN A Jj 
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III iTrT 

GAMES 2 ^^™ M o ^^''^f "^ 



<" 





ace 











GAMES ; 

Retrofire 

f^oundup 

Livewire 

BncWaye,.3 Nightmare 
Knights and Chalices 
At Attack 
Avalanche 






■//? 



V^% 



?e 



-U 



00, 



'©/• 



Or/f 



//?« 



a-, 



■'9/ 



'/?o 



^^^?%, 



■e^^/ "pAj, 




.^/sa 



% 



C?"-*s 



Y7, 



'^; 







GRAPHICS 

Sketch Pad 

Graphic Violence! 

Multicolor Screen Generator 

Moving Missiles in BASIC 

Stars 3-D 

Bar Chart Subroutine 

Solid States 

Scredit 

Graph E's 

P/M Creator/Animator 



Oaxa'' 






v^^^lv^^"'' 




span- ^ 't? 



To order, send $9.95 per disk 




^^\ (plus $2.50 per order shipping and handling) 
■■^ NO CODs ACCEPTED 

to: 
ANALOG Computing— Disks 

RO. Box 23, Worcester, MA 01603 

or call (617) 892-3488 

^ m I 1 1 II I aj.i JJM=ii««i. I ^^ 






FREE FREIGHT ON ORDERS OVER $100.°°* 

ALL PRICES REFLECT A 3% CASH DISCOUNT. ADD 3% FOR CREDIT CARD PURCHASES. COD 
ORDERS ADD S4." PER BOX. ORDERS UNDER S100." ADD S4.°" SHIPPING AND HANDLING. 
QUANTITIES ON SOME ITEMS MAY BE LIMITED. PRICES ARE SUBJECT TO CHANGE WITHOUT 
NOTICE. APO. FPO ADD 6% ADDITIONAL SHIPPING. FOREIGN ORDERS ACTUAL FREIGHT 
CHARGED. ALL SALES ARE FINAL. RETURN OF DEFFECTIVE MERCHANDISE FOR REPLACEMENT 
ONLY WITH AUTHORIZATION. AUTHORIZED RETURNS ARE SUBJECT TO A RESTOCKING FEE. 
COMPLETE LISTING OF ALL SALES POLICIES AVAILABLE UPON REQUEST. 

•EXCEPT ON ITEMS MARKED BY AN ASTERIKS. 

CHRISTMAS HOURS: 8:00 AM - 9:00 PM EST 



& S Wholesalers, Inc. 



DCOCCSSING $y$Tf>i 

130XE COMPUTER 

1050 DISK DRIVE 

1027 LEnER-QUALITY PRINTER 

TEXT PRO WORD PROCESSOR 

DATA PRO DATA BASE 

10 5%" BUkUK DISKEHES 



487. 



77 



MCDEM 

37.77 

ST HACCCCIVES 
SHI)2C/HC 

549.90 



12" C€L€C 
A4CNITCC 



sorrwACE 



ABACUS 

ASSEMPRO 36.' 

DATATRIEVE 29.' 

PAINT PRO LIBRARY 17.' 



ATARI 




149.90 



1C4C$T 




PAINTPRO 


29," 


ARCADE CHAMP KIT 


19." 


PCB DESIGNER 


237.»o 


ASTEROIDS 


10." 


POWER PLAN COLOR 


47." 


ATARILAB LIGHT MODULE 


29" 


POWER PLAN MONOCHROME47." 


ATARIIAB STARTER KIT 


44," 


ST GEM 


8." 


CAVERNS OF MARS 


12,=' 


ST GRAPHICS & SOUND 


8." 


COMPU-BRIDGE 


17." 


TEXTPRO 


29." 


CONVERSATIONAL FRENCH 


10," 






CONVERSATIONAL SPANISH 


10,°° 


ABSOFT 




CONVERSATIONAL ITALIAN 


10.00 






DEFENDER 


12." 


FORTRAN 


119" 


DIG DUG 


12." 


ACCESS 




ET. 

EASTERN FRONT 


7." 
10." 


EXEC. DISK-LEADER BOARD 


11." 


FAMILY FINANCE 


6.0" 


LEADER BOARD 

TOURN. DISK-LEADER BOARD 


23." 
11." 


GAIAXIAN 

HOME FILE MANAGER 


10" 
16." 


TRIPLE PACK 


11 " 


JUGGLES RAINBOW 


12." 


10TH FRAME BOWLING 


23." 


LEARNING PHONE 


17." 






LOGO KIT 


29." 


ACCOLADE 




MICKEY & GREAT OUTDOORS 


19" 






MISSILE COMMAND 


10." 


ACE OF ACES 


17." 


MUSIC COMPOSER 


16" 


FAMOUS COURSE DISK 


11." 


PAINT 


16" 


FIGHT NIGHT 


17." 


PROOFREADER 


7.» 


HARDBALL 


17," 


SILENT BUTLER 


17." 


MEAN 18 


26." 


SKYWRITER 


12." 


SPY VS SPY 1 & II 


8," 


SPACE INVADERS 


10." 


ACTIVISION 




STAR RAIDERS 
STAR RAIDERS II 


10" 
12." 






THAI BOXING 


8." 


BORROWED TIME 


29," 


TIMEWISE 


2." 


GHOSTBUSTERS 


8," 


VISICALC 


17." 


GREAT AMERICAN CC RACE 


8." 


V t\ji\^/^i^y,^j 




HACKER 


8." 






HACKER II 


23," 


AVALON 




UTTLE COMPUTER PEOPLE 


14," 






MINDSHADOW 


29," 


COMBAT CHESS 


IS." 


MUSIC STUDIO 


29" 


GULF STRIKE 


18.°" 


PAINTWORKS 


23." 


JUPITER MISSION 1999 


30,°° 


PITFALL 


400 


MISSION ON THUNDERHEAD 


^5.«> 


PORTAL 


29!" 


QUEST SPACE BEAGLE 


21,°o 


SHANGHAI 


23." 


TAC. 


24,00 


TASS TIMES 


23." 


BATTCDICe IKir^l 





CALL...WE BEAT 
ALL PRICES 



AEGIS 

AEGIS ANIMATOR ST 47," 

ART PACK #1 FOR ANIMATOR 20," 

ARTWORK 

BRIDGE 40 17," 

BRIDGE 5.0 20" 

COMPU-BRIDGE 17." 

HOLE IN ONE GOLF 11." 

STRIP POKER 23." 

STRIP POKER DATA 1 FEMALE 11." 

THAI BOXING 8." 



B-GRAPH 23." 

DEGAS 23." 

HOME PAK 29." 

rS DEGAS ELITE 47." 

rs PAPERCLIP EUTE 59." 

rS TALK 29" 

ISGUR PORTFOLIO SYSTEM 1 1 9" 

PAPERCLIP 35." 

PAPERCLIP W/SPELLPACK 35." 

THUNDER 23." 

TIME LINK 29" 



BRODERBUND 

BANK STREET WRITER 29" 

CHAMP LODE RUNNER 17" 

KARATEKA 17," 

PRINT SHOP 26." 

PRINT SHOP COMPANION 20." 

PRINT SHOP GRAPHICS LIB 1 14," 

PRINT SHOP GRAPHICS UB 2 14." 

PRINT SHOP GRAPHICS UB 3 14." 

SYNCALC 29." 

SYNCALC TEMPLATE 11." 

SYNCHRON 23." 

SYNCOMM 23." 

SYNHLE- 29." 

SYNSTOCK 23." 



DAVIDSON 

MATH BLASTER 29," 

WORDAHACK 29." 

MASTERTRONIC 

NINJA 11." 

RENEGADE 11." 






INFOCOM 

BALLYHOO 23." 

BUREAUCRACY 23." 

DEADLINE 29," 

ENCHANTER 17," 

FOOBUTZKY 23," 

HITCHHIKERS GUIDE GALAXY 1 7," 

HOLLYWOOD HIJINX 23." 

INHDEL 26" 

INFOCOM SAMPLER 4," 
LEATHER GODDESSES PHOBOS23." 

PLANETFALL 23." 

SORCERER 26" 

SUSPECT 26," 

SUSPENDED 29" 

TRINITY 23," 

WISHBRINGER 20," 

ZORK I 23." 

ZORK TRILOGY 35." 

ISD MARKETING 

VIP PROFESSIONAL 94.'° 

MARK WILLIAMS 

MARK WILLIAMS C 107." 



DITEK SOFTWARE 

ST ACCOUNTS 8' 

DR. rs 

CZ PATCH 5' 

KEYBOARD CTRL SEQUENCER 1 1 
MIDI RECORDING STUDIO 2 
THE COPYIST 11 

ELECTRONICAARTS 



ADVENTURE CONST SET 

ARCTIC FOX 

AUIODUEL 

CHESSMASTER 2000 

FINANCIAL COOKBOOK 

GOLDEN OLDIES 

M.U.L.E. 

MAIL ORDER MONSTERS 

NEW TECH. COLOR BOOK 

OGRE 

PINBALL CONST. SET 

QUIZAMI 

RACING DESTRUCTION SET 

SKYFOX 

STAR FLEET I 

ULTIMA III 

ULTIMA IV 

EPYX 

CHAMP WRESTLING 
ROGUE 
SUB BATTLE 
WINTER GAMES 
WORLD GAMES 
WORLD KARATE CHAMP 

FIREBIRD 

GOLDEN PATH 

GUILD OF THIEVES 

PAWN 

STARGLIDER 

TRACKER 

UNIV. MILITARY SIMULATOR 

GAMESTAR 

CHAMP BASEBALL 
GBA CHAMP BASKETBALL 
GEL CHAMP FOOTBALL 
ON TRACK RACING 
STAR LEAGUE BASEBALL 
STARBOWL FOOTBALL 

HABA 

HABA SPECIAL 

HABA WRITER 

HABA WRITER II 

HABACOM. 

HABADEX PHONEBOOK 

HABAMERGE 

HABASPELL 

HABAVIEW 

HIPPO-C 

HOME ACCOUNTANT 

MAILROOM 

PRO BUSINESS LEHERS 



4' 
3; 
2; 
3! 
2: 
2; 
2< 
41 
2f 
Ai 
2? 



1-800-233-6345 



1-800-331-7054 



TACI $f 3(54 



1€S€i 



AVATEX 

12CC/HCDE/H 



AT/4Kl'iec5€ 
DISr; DRIVE 



V19-'° 149.90 79. 469.90 



WITH PURCHASE OF 
DRIVE CLEANER 



•WITH PURCHASEOF INTERFACE 



'WITH PURCHASE OF CABLE 'WITH PURCHASE OF CLEANER 



)RD PROCESSING SYSTEM 

ST COMPUTER 

54 DISK DRIVE mm ^ ^ nn 

124 MONITOR /QV **J 

COLUMN PRINTER III' 
MTER CABLE 
i '.-.•" DISKETTES 

iRD PROCESSING PROGRAM 
/lOVSE 



RADAR 
DETECTCR 

SUPERHETRODYNE 

69.90 



IF WE DO NOT HAVE THE LOWEST PRICE ON AN 

ITEM. CALL AND ALLOW US TO GIVE YOU THE 

BEST BUY FOR YOUR $$$$. 



METRCOMCO 

.MBRIDGELISP 119." 

) PASCAL 59." 

TICE C 89." 

sCRO ASSEMBLER 47." 

NU- 17." 

TACOMCOBCPL 89" 

TECOMCOMAKE 41." 

Ml GRAPH 

SY DRAW 47." 

3Y-DRAW r-ONT PACK 1 23." 

MICHTRON 

r 1 7." 

IIMATOR 23." 

51.0 29" 

^LENDER 17" 

vRDS 23." 

:iRNERMAN 29." 

)S SHELL 23." 

HO 23," 

A BASIC COMPILER 47." 

A BASIC INTERPRETER 47." 

3LD RUNNER 23." 

.RATE KIT II 23." 

CACHE 23." 

COPY 47." 

DISK PLUS 23." 

DUPE 17." 

CHTRON BBS 2.0 47." 

ACE SHUHLE II 23." 

/IE BANDITS 23." 

MICROPROSE 

DNFLICT IN VIETNAM 23." 

15 STRIKE EAGLE 20." 

JNSHIP 20." 

.ENT SERVICE 20." 

XO FLIGHT 14." 

1TFIREACE 17." 

)P GUNNER SERIES 14." 

MICROLEAGUE 

CROLEAGUE DATA DISK 11 ." 

CROLEAGUE BASEBALL 23." 

DRLD SERIES DISK 11." 

■86 TEAMS DISK 11." 

i's WORLD SERIES 11." 

MINDSCAPE INC. 

kLANCE OF POWER 29." 

3PN WRESTLE 17." 

'ATACCUS 29." 

TENDER OF THE CROWN 29." 

GH ROLLER 29." 

FILTRATOR 17." 

ASTERTYPE 23." 

3 1 29." 

MBAD 29." 

MONOGRAM 

DLLARS & SENSE 59." 



PEACHTREE 

BACK TO BASIC ACCOUNTINGS?." 

PECAN 

UCSD PASCAL 47." 

PHILON. INC. 

FAST BASIC-M COMPILER 77,« 

FAST C COMPILER 89." 

FAST COBOL COMPILER 1 79." 

FAST FORTRAN COMPILER 1 79." 
HENFiVS FUNDAMENTAL BASIC 29« 

PROG. PERIPHERALS 

LOGISTIX JR. 520 VESION 59." 

LOGISTIX 1040 1 MEG. REQ. 89." 

SUPERBASE GEM 89." 

SUPER SCRIPT 29." 

PROFESSIONAL SOFTWARE 

FLEET SYUSTEM 2 41" 

REGENT 

BUSINESS TEMPLATE I 29." 

INVENTORY MANAGER 47." 

MAIL MERGE DATA BASE 14." 

REGENT BASE 59." 

REGENT PAK 29." 

REGENT WORD 29." 

REGENT WORD II GEM VER. 47." 

SPELL CHECKER 29." 

ROYAL SOFTWARE 

E-Z DATA 29." 

E-Z GRAPH 41." 

E-Z SCHEDULER 23." 

E-Z SPELL ENGLISH 23." 

E-Z SPELL FRENCH 23." 

E-Z SPELL GERMAN 23." 

E-Z THESAURUS 23." 

HELPCALC 14." 

HELP-MATE 11." 

NEWE-ZCALC 41." 

PAYROLL MASTER 47." 

SHELBOURNE S/W 

ST POOL 20." 

ST SHUFFLEBOARD 17." 

SIERRA 

ACCOUNTS RECEIVABLE 35." 

BLACK CAULDRON 23." 

CASH DISBURSEMENTS 35." 

DONALD DUCK'S PLAYGRD 1 4." 

GENERAL LEDGER 35." 

KING'S QUEST II 29." 

KING'S QUEST 29." 

KING'S QUEST III 29." 

ULTIMA II 4.M 

WINNIE THE POOH 14." 

3-D HELICOPTER SIMULATOR 29." 

SPECTRUM HOLOBYTE 



FALCON 
GATO 
PT BOAT 



23.' 
23.' 
23.' 



PRECISION SOFTWARE 

ACTION 47."° 

ACTION TOOL KIT 1 7." 

BASIC XE 47.« 

BASIC XL SS,-" 

DOS XL WITH BUG 65 17." 

MAC/65 47.-«> 

PERSONAL PASCAL 44." 

PERSONAL PROLOG 63 " 

SPINNAKER 

HOMEWORK HELPER MATH 29.» 
HOMEWORK HELPER WRITING 29.' 

SPRINGBOARD 

CERTIFICATE MAKER 29.' 

CERT. MAKER LIBRARY #1 20.' 

STRATEGIC SIMULATIONS 

BATTALION COMMANDER 23.' 

BATTLE FOR NORMANDY 23.' 

BATTLE OF SHILOH 23.' 

BROADSIDES 23.' 

COLONIAL CONQUEST 23.»' 

COMPUTER BASEBALL 23.'' 

COMPUTER QUATERBACK 23." 

FORTRESS 8.'' 

GEMSTONE WARRIOR 8.'' 

GETTYSBURG 35.'' 

KAMPFGRUPPE 35." 

NAM 23.' 

PHANTASIE 23.' 

PHANTASIE II 23.< 
PHANTASIE III 

-WRATH/NIKADEMUS 23.' 

RAILS WEST 23.' 
REBEL CHARGE: CHICKAMAU 29.' 

RINGS OF ZILFIN 23.' 

ROADWAR 2000 23.' 

SHARD OF SPRING 23.' 

SIX GUN SHOOTOUT 23.' 

USAAF 35.' 

WAR IN RUSSIA 47.' 

WARGAME CONST. SET 1 7.' 

WIZARDS CROWN 23.' 

SUBLOGIC 

FLIGHT SIM. II COLOR 32.*' 

FLIGHT SIM II MONOCHROME 32."= 
JET 32."= 

NIGHT MISSION PINBALL 1 9."= 

SCENERY DISK 1 TEXAS 12." 

SCENERY DISK 2 ARIZONA 12." 
SCENERY DISK 3 CALIFORNIA 12." 
SCENERY DISK 4 WASHINGTON12.'' 
SCENERY DISK 5 UTAH, CO. WY12." 
SCENERY DISK 6 KANSAS, NEB 12." 
SCENERY DISK 7 FL. NC, SO 12.'' 
STAR SCENERY- JAPAN 12.' 

STAR SCENERY-SAN FRAN. 12.' 

WESTERN SCENERY DISK PACK 64.' 



CL€$E€UTS 

POPEYE 6" 

Q'BERT 6." 

FROGGER 6" 

JAMES BOND 6.''' 

SUKPER COBRA 6" 

STAR WARS 6." 

CASTLE WOLFENSTEIN 6." 

BEYOND CASTLE WOLF 6." 

RACK-EM 6," 

WIZARD OF WOR 6" 



THUNDER MOUNTAIN 

ABC's W/ THE TINK TONKS 5.° 

BEING A SMART THINKER 5.' 

COUNT 8c ADD W/TINK TONKS 5.'' 

DEVELOP THINKING SKILLS 5.' 

SONGWRITER 5.' 

SPELLING WITH THE TINK TONKS 5.' 

SUBTRACT W/ THE TINK TONKS 5.' 

TINKA'S MAZES 5.' 

TIMEWORKS 

DATA MANAGER ST 47.' 

SUPER GRAPHICS ST 29.' 

SWIFTAX 47.' 

SWIFTCALC ST 47.' 

SYLVIA PORTER 47.' 

SYLVIA PORTER VOL. 2 47.' 

WORD WRITER ST 47.' 

WEEKLY READER 

STICKYBEAR ABC 17.' 

STICKYBEAR BASKETBOUNCE 1 7.' 

STICKYBEAR NUMBERS 1 7.' 

STICKYBEAR SHAPES 17.' 

UNISON WORLD INC. 

ART GALLERY 1 17.' 

ART GALLERY II 17.'= 

PRING MASTER PLUS 23.' 

WORD PERFECT 

WORD PERFECT 4.1 237.' 

X-LENT SOFTWARE 

HYPNOSIS W/BRNWAV. SYNCH 17' 

ICON COLOR DISK 11.' 

ICON MONOCHROME DISK 23.' 

MEGAFILER 11.' 

MEGAFONT ST 23.' 

MEGAFONTIh 14." 

MINIATURE GOLF PLUS 17.' 

MUSIC BOX RGB 29' 

PAGE DESIGNER 17.' 

PICTURE DISK 11' 

PRINT MASTER INTERFACE 1 7.' 

PRINT SHOP INTERFACE 17.' 

RUBBER STAMP 1 7.' 

ST MUSIC BOX 17.' 

TRIVIA MANIA 1 7.' 

TYPESEHER ELITE 29.' 

TYPESETTER-MONO & RGB 23.' 

WRITE 90 17.' 
1ST XLENT WORD PROCESSOR 17.' 



$ CIT 

HARDWARE 



800XL 

1060 DISK DRIVE 

INDUS GT 

XM801 PRINTER 

65XE 

XM301 MODEM 

ATARI LIGHT PEN 

1027 PRINTER 

20 MB HARD DRIVE 



89.'" 
229 »' 

199*' 

37" 
42" 
124" 
CALL 



ST HAKDWACt 



520ST COMPUTER 
1040SI COMPUTER 
SM124 MONITOR 
SC1224 MONITOR 
SMM804 PRINTER 
SF364 DISK DRIVE 
SF314 DISK DRIVE 



359,'" 
-599."' 
149 '■' 
329":^ 

CALL 
219 « 



JCrSTICES/ 
ACCESSeCIC* 



WICO THE BOSS 
WICO BAT 
WKOS WAY 
KRAR 

RECOTON BIG SHOT 
5','«" DRIVE CLEANER 
6'.''!" DRIVE CLEANER 
CRT CLEANER 
800 XL COVER 
520ST COVER 
DRIVE COVER ST 
1050 COVER 
1025 COVER 
1017 COVER 
130 XE COVER 
1224 COVER 



10" 
14'''- 
18," 



9,' 
14,' 
7' 
9' 
7,' 
7,' 
7' 
7,' 
7' 
11' 



13CXE 




99.99 

"WITH PURCHASE OF 
SOFIWARE PACKAGE 

STARNXIC 

1 79.90 

'WITH 2 RIBBON PURCHASE 

CIRCLE #112 ON READER SERVICE CARD 



Get something Extral 
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An Atari 8-bit Extra 

from ANALOG Computing 

t's a book of some of the best 
articles and software listings 
submitted to ANALOG 
Computing— things we 

just couldn't fit in the 
monthly magazine 
pages. 

Owners of Atari 8- bit 
computers will find 
the Extra a must. 
It gives you games, 
tutorials, utilities, 
applications, and 
more— material 
you'll want 
to keep. 



PLUS $1.50 FOR 

POSTAGE AND 

HANDLING 




DonH miss ill 
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Forem ST 



by Matthew Singer 
COMMNET SYSTEMS 
24 Randy Road 
Framingham, MA 01701 
(617) 877-0257 
High or medium resolution 



$59.95 



bv Blake Arnold 



The Forem bulletin board system pro- 
gram for Atari 8-bits has been out for a 
few years now, and again Matthew Sing- 
er has remained ahead of the pack with 
one of the first Atari ST bulletin board 
programs. It wouldn't be fair to compare 
the ST version to the 8-bit version; the ST 
version is much more powerful and flex- 
ible (as it should be). Forem ST contains 
so many commands not in the 8-bit ver- 
sion that it's barely recognizable as the 
same BBS software. 

The Forem ST BBS program requires at 
least two disk drives, either two floppy 
drives, or a floppy drive and a hard disk 
drive. It will recognize a RAlvIdisk as the 
second system drive, but, to me, it's more 
trouble than it's worth to configure the 
board that way. However, configm'ing the 
RAMdisk as a third or greater drive pre- 
sents no real problems. (In fact, using a 
RAMdisk for the system text files, menu 
files, etc., will save you some wear on 
your drives, and also speed things up a 
little.) 

Forem ST comes on two single-sided 
disks (with ST-Term on one of them, 
which I'll explain later), and consists of 
about 600K worth of files. The actual BBS 
program is about 200K long; the rest of 
that space is taken up by Forem's related 



system files. The disks are also miprotect- 
ed. as any application/utility program 
should be. 

The program will run in medium or 
high resolution, but you must specify 
which when configuring your system. 
There's a reason for this: if you're using 
a color monitor, Forem ST lets you set 
your background and text colors, then 
saves that information into one of its con- 
figuration files (there's no need for the 
control panel). 

Other than needing two drives, the pro- 
gram has no special requirements, but I'd 
recommend a hard drive if you plan to 
have a bulletin board system of any ap- 
preciable size. As for modems, any Hayes- 
compatible modem will work (all the way 
up to and including 9600 baud). 

The documentation consists of a 100- 
plus page booklet that explains all the 
setup procedures and program options in 
full, as well as how to maintain the BBS 
(userlog maintenance, etc.). If you read 
the book before trying to set up your sys- 
tem, you shouldn't have any problems (at 
least none that can't be solved by refer- 
ring to the manual). 

When I first opened the book, I was im- 
pressed by the amount of control available 
to the SYSOP. It's possible to limit just 
about anything a user can do, if that's 
necessary. Surprisingly, this power doesn't 
make Forem ST overly complex for either 



the SYSOP or the users. (It does take a lit- 
tle getting used to, though.) 

Forem ST's userlog is capable of con- 
taining up to 2000 users. In case you thiiik 
that's not quite enough, pull out your tel- 
ephone directory and count seven pages; 
that's what 2000 names look like in print. 
The userlog itself contains the informa- 
tion on each user, and, with the userlog 
editor (which is built in, as is the mes- 
sage base editor), it's possible to allow 
users access to only certain portions of the 
BBS, or the entire BBS. 

Forem ST also has a terminal mode to 
allow the SYSOP to call out if he wishes. 
Forem ST loads ST-Term (which is includ- 
ed) when it's put in terminal mode, and 
through this, it's possible to upload and 
download files — and even define macro 
keys. In short, it's a /uil featured termi- 
nal mode, allowing all the options you'd 
expect. 

As I mentioned, Forem ST actually 
loads ST-Term when put in terminal mode; 
the ability to load and execute TOS pro- 
grams is also available with an EXEC (ex- 
ecute) command. With EXEC you can 
load a word processor (Micro Emacs, etc.) 
and edit text files, without taking the 
board down. 

File transfers are one of Forem ST's 
strong points. Matthew Singer seems to 
be one of first to implement new types of 
protocols into his programs. The newest 



ANALOG COMPUTING 



OCTOBER 1987 / PAGE 39 



Advan BASIC 

"spectacular.. ..an expanded BASIC with 
powerful new commands.. .brilliant work 
...send away for your copy today. You 
will not regret it." Apr86 ANTIC magazine 

"great. ..easy to use...l heartily recommend 
the package on the strength of Advan 
BASIC" Aug 86 ANALOG magazine 

*FAST: Compiles. Short programs run 
upto 20 times faster than in ATARI BASIC. 
Long programs upto 100 times faster. 

♦POWERFUL: Real, integer, and string 
arrays and variables. Strings are not 
dimensioned. IF THEN ELSE, REPEAT, 
WHILE, CASE, and multi-line IF commands. 
Functions and subroutines with up to 4 
arguments. 8 PIVl commands let you define 
and insert figures into PMs, auto, move 
them horizontal &/or vert, at rates you 
specify, & even auto, change PM figures 
for animation effects. 3 sound commands. 
You can set up and auto, play tunes. 
Built-in assembler. RAMDISK for 130XE. 

*E1ASY TO USE: Programs entered and 
edited as in ATARI BASIC. English 
error messages. KILL, RENAME, and 
DIR built into BASIC. 

♦ONLY $39.95. Includes 119 pg. manual 
& program which converts many ATARI 
BASIC programs to Advan form. Needs I 
disk drive &800XL/XE/48K 800. VISA/MC 
accepted. Shipping $3.95. COD add $2.00 

ADVAN LANGUAGE DESIGNS 

Box 159 Baldwin, KS 66006 

(913)-594-3420 
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256KXL 



$69,95 

This 256K ram memory upgrade 
IS designed for l he 800XL/1200XL 
compuiers. This upgrade gives you 
compalibilly wilh the 130XE, plus 
gives you an addiiional 128K of 
ram for a lolal of 256K. Wilh ihls 
upgrade, you can run sofiware 
designed for ihe 130XE, including 
Basic XE, disk operating systems, 
etc. Internal Installation. Does not 
use expansion bus. Some soldering 
required. fNilydos and manual 
Included. D on ' t confuse our 
upgrade wilh others you may have 
heard about, ours supports Antic 
CPU control. Our upgrade also 
protects the main memory, so you 
can't accidental I y access the main 
memory banK and wipe it out. 
Installation available 

256KXLLM $39.95 

Same as above, without RAM 



Cfieck your local dealer or contact-. 

Newell Industries 

602 East Hwy. 78 

Wylle, TX. 75098 

214-442-6612 

Dealer Inquiries Welcome 
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protocol is Fmodem, which uses a 4K 
block (instead of a 128-byte block, like 
standard Xmodem). Fmodem is primari- 
ly for high baud rate transfers (Forem ST 
supports 9600 baud). Forem ST allows up 
to twenty file transfer areas, and each one 
may contain files of any access level, but 
only those files at and below a user's lev- 
el will be shown to him. 

When a user lists or scans the files, he'll 
also be shown a brief description of the 
file and other pertinent information. The 
LIST command is similar to the READ 
command on Delphi (full information on 
the file), and the SCAN command shows 
only the filename, length and description. 
Forem ST also has a NEW command that 
shows the user all the files uploaded since 
his last call. 

As far as transfer protocols available, if 
Forem ST doesn't have it, chances are it's 
rare. Protocols currently supported are: 
ASCII (Xon-Xoff), Xmodem, Xmodem 
CRC (Cyclic Redundancy Checking), Y- 
modem, Ymodem CRC, Ymodem batch, 
Amodem, Kermit, CompuServe B and F- 
modem. It also has a VERBOSE command 
in the files system; this allows a user to 
do a verbose list of any archived (ARC) file 
that he can view. It's extras like these that 
make this one of the best BBS programs 
I've seen. 

Forem ST allows up to sixty-four separ- 
ate message bases, each with a different 
maximum number of messages and its 
own name. The message bases also have 
separate security masks, so it's possible 
to allow a user access to all, one, or any 
combination of message boards. 

For the user, this program offers a vari- 
ety of options for reading or scanning 
messages. The message base has the stan- 
dard READ and SCAN commands, along 
with others for reading messages in a par- 
ticular sequence, or finding messages that 
are addressed to you. 

One of the nicest features of the mes- 
sage base (at least from a SYSOP's stand- 
point) is the ability to send a message to 
all users at and below a certain download 
privilege level. If tire SYSOP uses this op- 
tion, all users at and above that download 
level will be shown the message as if it 
were addressed directly to them. Mes- 
sages in a base can be locked by the 
sender, so that only the person the mes- 
sage is addressed to may read it. Forem 
ST also contains a completely separate E- 
mail (electronic mail) message base for 
private messages among users. 

If I had to pick a favorite feature (aside 
from the amount of control given to the 



SYSOP), it would be support of VT-52 cur- 
sor and color codes in messages and text 
files. With the VT-52 codes, it's possible 
to do animation and color changing, 
which can call attention to your messages. 
VT-52 animation seems to be the "in" 
thing on ST BBSs right now, and that may 
be one reason for Forem ST's popularity; 
it's one of the few with this feature. 

Forem ST also has several other inter- 
esting features, a few of which I'll explain 
here. (Keep in mind; the program is full 
of things like this.) Its prompt set (lines 
such as "Select" that the user sees after 
a menu, etc.) can be customized. This 
helps to keep every Forem ST BBS from 
looking like a clone. You can lower all 
users' access times during peak hours au- 
tomatically, which lets more people use 
the BBS. Forem also lets you use the mes- 
sage editor on short text files, and a 
SYSOP can configure the BBS to lock out 
300-baud callers. (If you run a large, busy 
BBS, this might be useful.) 

I could find only one minor problem 
with the program. When logging on as a 
new user or uploading a file, you're asked 
several questions. After every one of the 
questions Forem ST echoes the users in- 
put, along with an Is this correcf? ques- 
tion. It gets annoying! It seems to me that 
echoing the entire block of information, 
then asking the user if it's correct would 
be easier on everyone. 

All things considered, I think Forem ST 
is a good BBS program (with a little room 
for improvement). It seems to be one of 
the most popular for the ST, so a lot of 
people are already used to a Forem ST 
board. And it offers excellent SYSOP con- 
trol over the system, along with some 
powerful commands for the users. As far 
as updates are concerned, Forem is also 
one of the best in that field. Commnet Sys- 
tems runs a bulletin board on which 
callers can make suggestions about new 
features or changes they'd like to see in 
the program. The next revision (which 
will probably be available by the time you 
read this) will include a fimction to allow 
users to execute TOS programs for on-line 
games, etc. 

If you're already rumiing a non-Forem 
BBS, or thinking about running a BBS, I 
don't think you could go wrong with For- 
em ST. If you'd like to take a torn- of a For- 
em BBS in action, call Commnet Systems 
support BBS at 617-877-8756. fl 
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The Wizard 

PART 1 



A text adventure construction set. 

This montli: tlie editor and database printer. 



by Clayton Walnum 



Almost two years ago, I wrote a series of articles called 
"Adventurous Programming," to teach intermediate and ex- 
pert BASIC programmers how to create text adventure 
games. Unfortunately, many of ANALOG Computing's faith- 
ful readers were left in the lurch; they wanted to design ad- 
venture games, but didn't know — and possibly didn't want 
to know — how to program. 

There's a lot of creative talent out there just waiting to 
crawl free, a lot of entertaining adventure games trapped 
behind the brows of nonprogrammers who, nonetheless, 
have a contribution to make. I decided someone had to come 
up with the vehicle these people needed to transform their 
ideas into program code. 

It was a tough challenge, but The Wizard is here. 

The Wizard is a system of programs that lets you create 
your own BASIC text adventures without any knowledge 
of programming. It's actually made up of three modules: the 
editor and database printer, which are presented this month; 
and the compiler, which will be in next month's ANALOG. 

The editor is used to create a database of all the infor- 
mation needed for the compiler to create your adventure. 
With the editor, you'll enter room, object and cominand 
data, as well as text for the game's title and introductory 
screens — all of which will be automatically saved to disk 
as you work. The database printer module reads data from 
the disk and sends it to the printer in a readable format, 
so you can print a record of your work. And, finally, the 
compiler reads the adventure data from the disk and cre- 
ates a complete, ready-to-run BASIC adventure. 



The resultant BASIC program is complete and freestand- 
ing in every way. It doesn't require other data to run, and 
may be handed out to friends as freely as any other BASIC 
program. Because The Wizard outputs standard BASIC, 
programmers have the added bonus of being able to create 
an adventure easily, then modify the generated program to 
suit their needs. 

The listings. 

Type in Listing 1, the editor module, using the "BASIC 
Editor 11" (issue 47) to verify your work, then save it to disk 
under the filename WIZARD. BAS. Listing 2 is the database 
printer. Type it in and save it to disk under the filename 
WIZPRINT.BAS. 

Writing an adventure. 

I'm not going to discuss the art of designing adventure 
games. Anyone interested in learning more about plotting, 
mapping, characterization and the other essential elements 
of adventure design should refer to the first article in the 
"Adventurous Programming" series (issue 39), or to Michael 
Banks's "Designing an Adventure Game" in the October 1987 
ST-Log. Here, we're more interested in the mechanical side 
of the process, using The Wizard's editor to get the elements 
of the game on disk for the compiler. 

I'm going to explain The Wizard's editor in two sections. 
The following section is a detailed discussion, and serves 
as a reference manual for the system. After that is a tutorial 
section in which I'll take you step by step through the cre- 
ation of a short adventure game. If you like, you can skip 
ahead to the tutorial, create the adventure (you won't be able 
to compile it until next month, though), then read the rest 
of the article for further clarification. 
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^ The Wizard continued 



Creating a new game. 

When you run The Wizard's editor module, you'll be 
presented with a title page, followed by the main menu. 
If this is the first time you've ever run the program, you'll 
not have stored any adventure data on your disk. Your first 
step, then, is to choose menu selection 1, "Create Game." 

Here, you'll be asked to supply the editor with youi' name 
(as you'd like it to appear on the adventure's title screen), 
the game's title (keep it twenty characters or less) and the 
filename for the data. The filename should be eight charac- 
ters or less, and should not include a device or extender (for 
example: MYGAME, rather than DlrMYGAME.DAT). 

Once you've entered the required information, you'll be 
asked to verify your input. If you answer Y, the program 
will create the data files it needs — so make sure you have 
a blank, formatted disk in drive 1. You may have only one 
adventure database per disk. 

Note: before any of the other menu items will work, you 
must have either created a new game, or loaded a game al- 
ready in progress (more on this below). 

Loading a game in progress. 

You probably won't enter all your adventure data in one 
sitting — that's a lot of work! Even if you do manage to com- 
plete such a marathon session, you'll almost certainly have 
to go back to the editor at some point. The chances of a com- 
plex adventure game running properly the first time are slim 
indeed. 

To reload an adventure database, choose menu selection 
number 2, "Load Game," from the main menu. You'll be 
asked if your adventure data disk is in the drive. If the disk 
is okay, the program will load the data, after which you can 
continue editing your game. If you insert the wrong disk 
(a disk not set up by The Wizard), or the computer encoim- 
ters any type of file error, you'll receive an error message. 
If you don't wish to load a game, reply with an N to the 
prompt. 

Entering room data. 

Your adventure game may have up to thirty rooms, each 
of which can be interconnected with the rest in any way 
you please. You're allowed six exit directions: north, south, 
east, west, up and down. Additionally, some exits can be 
conditional, requiring that the player have a particular item 
before he may use them. 

Some of the prompts have default values that can be 
selected by pressing RETURN without an entry. Other 
prompts require input and must be filled in. If you make 
a mistake during data entry, you can use the BACKSPAGE 
key to make corrections. 

To enter room data, choose menu selection number 3, 
"Work on Rooms," from the main menu. The room editing 
screen, including a graphic representation of your room and 
its exits, will be displayed. An important note: room num- 
ber 1 is always where your player will begin his adventure. 

You must first enter the room's name (limit of twenty-four 
characters), followed by a RETURN. There's no default for 
this entry; you must supply a name for each room. 

You then need to enter information for each of your room's 
exits. The direction prompts require a number from lo 
30. If you enter a 0, there will be no exit in your room for 



that direction. This is the default, any other number being 
interpreted as the room number of that exit's destination, 
where the player will be moved when he chooses that exit. 
As you enter each exit, the on-screen graphic will be up- 
dated, showing each of the room's exits and where they lead. 

Once you've entered all the exits, you must tell the edi- 
tor if you want one of them to be restricted. Restricted ex- 
its are not usable unless the player has, either in the room 
or in his inventory, a particular item. (For instance, in the 
sample game found in the tutorial section, the player must 
have a coat before he's allowed to go outside.) 

For the RESTRICTED prompt, enter a single letter direc- 
tion (N, S, E, W, U or D) or the word NONE. The default 
is NONE. The direction you enter here must be a valid direc- 
tion, one that was given a nonzero value in the exit data. 

If you decided to have a restricted exit, you must then 
enter the name of the item that must be in the room (or in 
the player's inventory) for the exit to be active. The item 
name follows the same rules found in the "Entering item 
data" section below, and does not have a default value. 

The required item must be found either in the room or 
in the player's inventory. Answer I (the default) or R for the 
I/R prompt, as appropriate. 

Whenever a player attempts to use a restricted exit, he 
needs some textual feedback as to the outcome of his ac- 
tion. This is provided by the messages you enter following 
the POS TEXT and NEC TEXT prompts. The negative text 
is displayed when the player tries to use the exit without 
the required item. Positive text is displayed when the play- 
er succeeds in using the exit (in other words, he does have 
the required item). There are no defaults; if you have a re- 
stricted exit, you must enter the positive and negative text. 
Each of the lines must be no more than twenty-five charac- 
ters in length. 

When you're through entering the data for a room, you'll 
be asked to verify your work. A reply of Y will save the room 
to disk and set up the screen for the next. A reply of N will 
clear all data, allowing you to try again. To exit the room 
editing screen, press ESCAPE. 

Editing existing room data. 

You may, at any time, change previously entered room 
data. To do this, select "Work on Rooms" from the menu, 
then type the room number you wish to edit. The data will 
be loaded from disk, then displayed on the room editing 
screen. Defaults for all prompts become the displayed data 
(what you originally entered). Press RETURN till you get 
to the data you want to change, then make the correction. 

Note: you cannot delete a room once it's created. You can, 
however, change all the data, transforming the room into 
a new location. 

Entering item data. 

Every object in your adventure must be entered into the 
editor as an item. If you fail to do so, when the player uses 
the item as the noun portion of a comm.and, the game will 
return the message No such noun. To enter a list of items, 
choose menu selection 4, "Work on Items" from the main 
menu . 

The first entry you must make is the item's name. There's 
no default value, and each item name must be unique. Mul- 
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tiple words are okay (i.e., WOODEN BOX), but you're limit- 
ed to thirteen characters. 

After entering the name, you must give the item a three- 
letter code (this entry also has no default). The code is used 
internally by the program to discern one object from an- 
other It should consist of the first three letters of the item's 
name, though, in the case of multiple word items, you can 
choose which word to use as the basis for the code. Each 
three-letter code must be unique; you'll not be allowed to 
enter duplicates. 

Keep in mind that, during game play, the first three let- 
ters of the noun portion of the player's command will be 
compared against these codes for a match. If you want a 
player to pick up a boulder with the command GET BOUL- 
DER, the three-letter code for the item must be BOU. 

The next data needed is the room in which the item will 
be placed. This must be a number between 1 and 30 (the 
allowable range of room numbers); the letter C for items that 
will be created by an "item command" (see the section on 
item commands, page 44); or the word ANY (the default), 
which means the item will appear in the player's current 
room, once the proper command has been supplied. You 
should also enter C for objects used only as the noun por- 
tion of a command; that is, they don't actually appear in 
the game's object displays (see the tutorial section for an 
example of this usage). 



Some game items are stationary; others may be picked 
up and moved by the player. The category your items fail 
into depends on your answer to the GET prompt. If you an- 
swer y (the default), the item will be "getable." If you an- 
swer N, the player won't be able to move the object. 

Some items can be hidden from the player and made 
available to him only after he's completed a certain action. 
Others are accessible from the beginning of the game. The 
information you supply the COMMAND prompt will deter- 
mine which type your item will be. If you respond to this 
prompt with the word GET (the default), the item is visible 
in its destination room (the room entered at the ROOM 
prompt) at the beginning of the game. Any other command 
entered here must be a two-word, verb/noun combination, 
limited to fifteen characters in length. In order to get ac- 
cess to the item, the player must type this conmiand. 

The command may require that a particular item be pres- 
ent in the room or in the player's inventory. Either enter the 
name of that item after the ITEM NEEDED prompt, or re- 
spond with the word NONE (the default). 

Answer the I/R prompt in the same manner described in 
the "Entering room data" section above. 

If you've entered something other than NONE for the item 
needed, you must supply the negative and positive text (as 
described in "Entering room data"). Otherwise, you need 
supply only the positive text. 



Some program listings reproduced in ANALOG Computing may contain "Strang 
earlier Atari models. Tiiese are special cliaracters which use the CTRL, ESC and 
is a list of these characters and the keystrokes used to get them. 



e" characters not shown on tlie keyboards of 
ATARI LOGO" (inverse) keys. Shown below 



IT 

H — 

I — 

4 

H — 

1 — 

/ — 

\ — 

A — 



■ 

r 

+ 



CTRL , 
CTRL A 
CTRL B 
CTRL C 
CTRL D 
CTRL 
CTRL 
CTRL 
CTRL H 
CTRL I 
CTRL 
CTRL 
CTRL 
CTRL M 
CTRL N 
CTRL 
CTRL P 
CTRL « 
CTRL R 
CTRL 5 
CTRL T 
CTRL U 
CTRL U 
CTRL M 
CTRL 
CTRL 



E 

F 
G 



J 
K 

L 



K 
Y 



+ 

♦ 
If 
i 

i: 
I 

y 
:i 

f 

r 
h 



CTRL Z 
E5C E5C 
ESC CTRL 
ESC CTRL 
ESC CTRL 
ESC CTRL 
CTRL . 
CTRL ; 
ESC SHIP 
ESC BACK 
ESC TAB 
IMUERSE 
IHUERSE 
INVERSE 
IHUERSE 
INVERSE 
IHUERSE 
INVERSE 
INVERSE 
IHUERSE 
IHUERSE 
IHUERSE 
IHUERSE 
IHUERSE 



UP-ARROH 
DOHN-ARROH 
LEFT-ARROM 
RIGHT-ARROM 



T CLEAR 

S 



CTRL , 
CTRL A 
CTRL B 
CTRL C 
CTRL 
CTRL 
CTRL 
CTRL 
CTRL H 
CTRL I 
CTRL J 
CTRL K 
CTRL L 



1 

r. 



IHUERSE CTRL M 
IHUERSE CTRL N 
IHUERSE CTRL 
IHUERSE CTRL 
IHUERSE CTRL 
IHUERSE CTRL 
IHUERSE CTRL 
IHUERSE CTRL 



I 

□ 
n 

Q 
B 

I 

i 

□ 

II 
Q 
U 
U 



IHUERSE CTRL 

IHUERSE CTRL 

IHUERSE CTRL 

IHUERSE CTRL 

IHUERSE CTRL 

INVERSE CTRL 

ESC DELETE 

ESC INSERT 

ESC CTRL TAB CCLRJ 

ESC SHIFT TAB CSETJ 

IHUERSE SPACE 

IHUERSE _ 

IHUERSE CTRL , 

IHUERSE CTRL ; 

IHUERSE I 

ESC CTRL 2 

ESC CTRL BACK S 

ESC CTRL INSERT 
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Once a new item is stored on disk, the item screen will 
be cleared. You may then enter another item into the data- 
base, or press ESCAPE to return to the main menu. You may 
have no more than fifty items in your adventure. 

Editing item data. 

You can change previously entered item data at any time. 
To do this, select the "Work on Items" menu selection, then 
type the name of the item you wish to edit. The data will 
be loaded from the disk, then displayed on the item edit- 
ing screen. Editing is accomplished in the same manner as 
described in "Editing room data" above, pressing RETURN 
for data you wish unchanged and retyping those you want 
to modify. 

Entering command data. 

A command is an input from the player that will result 
in some sort of action in the game. The Wizard allows five 
types of commands: simple, movement, item, fatal and 
final. 

A simple command results only in the output of text to 
the player A movement command moves the player to a new 
location. Item commands, the most complicated, allow the 
player to combine, create or delete items, based on rules 
you've set up. Fatal commands "kill" the player and end 
the game. Final commands also end the game, but with the 
player victorious, having completed all the actions neces- 
sary to solve the adventure. 

To enter command data, choose menu selection 5, "Work 
on Commands," from the main menu. You'll then see a 
secondary menu. Here, you must choose which of the five 
types of commands you wish to work on. 

Simple, movement, final and fatal commands. 

When you make a selection from the command menu, 
the command editing screen will be displayed. This screen 
is similar for all command types except item commands 
which, because of their greater complexity, require many 
additional prompts. Because they're different from the other 
types, item connmands will be explained in their own sec- 
tion. Here, we'll take a look at the other four. 

First, you must enter the actual coirimand. Type it in fol- 
lowing the COMMAND prompt, keeping in mind that it 
must be a unique verb/noun phrase limited to fifteen charac- 
ters in length. This is a required entry; there is no default. 

In order for the command (the one you just entered at 
the COMMAND prompt) to be effective, the item entered 
at the ITEM NEEDED prompt must be present in the room 
or in the player's inventory. If you don't want to require an 
item, enter NONE (the default) for this prompt. Otherwise, 
enter an item name (this item must, of course, be entered 
into the database at some point). 

You must then answer the I/R, POS TEXT and NEG TEXT 
prompts in the usual manner There are no defaults for these 
entries and positive text is required. You may, if you want, 
leave the negative text blank by pressing RETURN with no 
entry. 

The movement command data entry screen has one ad- 
ditional prompt: the number of the room to which the player 
will be moved when he types the command. This should 
be entered in response to the DESTINATION prompt and 



must be a number in the range of 1 to 30. There's no de- 
fault value. 

After you've completed a command's data, it will be saved 
to disk and the screen cleared. You can then continue en- 
tering command data, or press ESCAPE to return to the 
main menu. 

Entering item commands. 

Item commands allow the playe"- to combine game items 
in various ways, create new items and delete old ones. This 
is a powerful feature, and the imaginative game designer 
will find many uses for it. An example of its use will be 
given in the tutorial section of this article, so if, after read- 
ing this section, you're still not sure how item commands 
can be used, you'll find help there. 

To set up an item command, you must first supply the 
database with the command itself, typing it in response to 
the COMMAND prompt. 

You'll notice that there are two ITEM NEEDED prompts, 
rather than the single prompt used with the other command 
editing screens. Also, the items needed must be in the play- 
er's possession (in the room isn't good enough] for the com- 
mand to take affect. Other than these differences, the same 
rules apply. The default for these prompts is NONE. 

The ROOM prompt must be filled in with either a valid 
room number or the word ANY. The player must be in this 
room for the command to be effective. 

The item to be created is entered in response to the CRE- 
ATE prompt. This is the item that will be added to the game 
when the coimnand is carried out. At some point before 
the game is compiled, this item must be entered into the 
adventure's data using the "Work on Items" selection of the 
main menu. 

The I/R prompt here is different from its counterparts on 
the other screens. This one's asking if the new item, once 
it's created, should appear in the room the player is in, or 
in his inventory. The default is J. 

The GET prompt works as explained in the section "En- 
tering item data" above, indicating whether the new item 
will be movable by the player. If you selected I for the I/R 
prompt, this entry will automatically be filled in as Y; since 
an item already in the player's inventory obviously can be 
moved. 

The two DELETE prompts allow you to choose either one, 
both or none of the needed items (or any other item, for 
that matter) to be deleted from the game. The default is 
NONE. 

Finally, you must enter the usual positive and negative 
text. The negative text isn' required if you've entered NONE 
for the items needed. 

As usual, to return to the main menu, press ESCAPE. 

Editing command data. 

You may change previously entered command data at any 
time. To do this, select "Work on Commands," then choose 
the type of command you want to edit from the command 
menu. When you respond to the COMMAND prompt with 
the command you wish to edit, the data will be loaded from 
the disk then displayed on the editing screen. Editing is ac- 
complished in the usual manner^pressing RETURN for 
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data you wish unchanged and retyping those you want to 
modify. 

Entering intro text. 

When a program created by The Wizard is run, it first 
displays a title screen, after which a text screen displaying 
the game's background story is shown. The text for this 
screen is entered into the database using menu selection 
6, "Intro Text." 

The intro text editor is very limited. It has few options 
(none, if you want the truth) and requires, for the most part, 
that you enter your text with no errors. You can backspace 
over text on the same line as the cru-sor, but that's about the 
extent of the correction "features." 

Text is formatted by padding hues with spaces; you don't 
end a line (or even a paragraph) by pressing RETURN. If 
you want a blank line, for example, you must fill the line 
with spaces. The RETURN key is used only when you've 
finished entering all text and are ready to save your intro 
screen to disk. 

The text will appear in the final game exactly as you've 
typed it on this screen. 

A tutorial. 

Now that I've suitably frightened you with all the techni- 
calities, let's create an adventure together. The process isn't 



Get 

this 

issue 

on 

Disli! 




$9.50 

plus $1.50 
shipping and handling 



Call 

(617) 892-9230 




as complicated as it might seem, and I think you'll find 
that — once you get a little experience under your belt — 
the program is easy to use. 

First, we need a plot. Let's say that a jewelry salesman 
just came to your door. Instead of buying something, you 
mention a diamond you want to get rid of. The salesman, 
always on the lookout for a bargain, agrees to buy the dia- 
mond. Now all you have to do is find it! The map of our 
adventure can be fomid in Figure 1. Use it for reference as 
we work. 

In the following steps, I'll be showing you exactly what 
to type to create our game. For instance: 

23 [R] 

means to type the number 23, followed by a RETURN. 
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Figure 1. 

Let's start by setting up a disk for our new adventure. Load 
The 'Wizard editor (Listing 1) and run it. When the menu 
appears, select the "Create a Game" option. Type the fol- 
lowing: 

ELMER FUDD [R] DIAMOND FOR SALE [R] DIAMOND (R) Y 

The program should now create the files for our new ad- 
venture game, after which it'll return to the main menu. 
Now we need to set up our rooms. Room number 1 is 
where our adventure game will start. Select the "Work on 
Rooms" option from the main menu and enter 1 for the room 
number. Now type: 

LIVING ROOM [R] 2 [R] 7 [R] 4 [R] [R] [R] 3 [R) [R] Y 

By entering the above data, we've created a room called LIV- 
ING ROOM that has four exits. The exits go north, south. 
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east and down, and their destinations are rooms 2, 7, 4 and 
3, respectively. 

Now enter the following data for room 2 : 

KITCHEN [R] 6 [R] 1 (R] [R] [RJ [RJ [R] N [R] COAT [R] [R] IT'S TOO COLD 
OUT THERE [R] THE COAT KEEPS YOU WARM [R] Y 

Here, we've created a room that has a restricted exit to 
the north. If the player wants to use that exit, he must have 
the coat in his inventory. If he tries to use the exit without 
the coat, he'll receive the message IT'S TOO COLD OUT 
THERE. If he has the coat, he'll get the message THE COAT 
KEEPS YOU WARM, and be allowed to use the exit, end- 
ing up in room 6. 

Now, enter the data for the rest of the rooms (in order) 
as follows: 

CELLAR [R] [R] [R] [R] |R] 1 [R] |R] [R| Y 

BEDROOM [R] 5 [R] [R] [R] 1 [R] [R] [R] [R] Y 

CLOSET [R] [R] 4 [R] [R] [R] [R] [R] [R] Y 

BACKYARD [R] [R] 2 |R) [R] [R] [R] [R] [RJ Y 

FRONT PORCH [R] 1 [R] [R] [R] [R] [R] [R] N [R] KEY [R] [R] THE DOOR 

IS LOCKED [Rl THE KEY UNLOCKS THE DOOR [R) Y 

All our rooms are now created and stored on disk. Next, 
let's create our item data. Press ESCAPE to return to the 
main menu, then choose the "Work on Items" selection. 
Now type: 

BULLET [R] BUL [R] 5 [R] [R] [R] Y 

Here, we've created a movable object (one the player can 
pick up) named BULLET, that will be located in room 5 
at the beginning of the game. The object's internal code (the 
way the program will recognize it) is BUL. 

Let's do another one. Type: 

KEY [R] KEY [R] 7 [R] [R] LOOK DOOR [R] [R] YOU SEE A KEY |R] Y 

We've created an object that'll be invisible to the player 
until he types the command LOOK DOOR while in room 
7, at which point he'll receive the message YOU SEE A KEY, 
and the key will be added to the list of visible items dis- 
played on the screen. This item goes hand-in-hand with 
the room description for the front porch, where, in order 
to get back into the house, he must first have the key. We 
didn't have to enter negative text in this case, because the 
command doesn't require an item to be present. 

Here are a couple of items that work together. Type: 

ICE PICK [R] ICE [R] 3 [R] [R) LOOK TOOLBOX [R] BROKEN LOCK [R] 
R [R] YOU FOUND SOMETHING [R] IT'S LOCKED [R] Y 
BROKEN LOCK [R] BRO [R] 3 [R] N [R] KICK TOOLBOX [R] [R] YOU 
BROKE THE LOCK [R] Y 

Can you see what's going on here? In order to get the ice 
pick, the player must type the command LOOK TOOLBOX 
while in room 3. Additionally, the broken lock must be in 
the room for the command to be effective. To get the bro- 
ken lock in the room, the player must first kick the toolbox 
(note, also, that the broken lock is a stationary item — it can- 
not be moved by the player). 

In this way, we're using the lock to signal to the program 
that the player has completed certain actions (kicking the 
toolbox). This is called a flag. 

Finally, one more variation. Type: 

LOADED GUN [R] LOA [R] C [R] Y 

The C in place of the room number here means that the 
loaded gun is an item that will be created later on in the 
game. You should also enter an item this way when the ob- 



ject doesn't actually appear in the game, but will be used 
as the noun portion of a command. For example, type: 

DOOR [R] DOO [R] C [R] Y 

If you look back at om' data for the item named KEY, you'll 
notice that the player must first look at the door. Even 
though a door will never appear anywhere except in the 
room description, it must be entered into the database, be- 
cause we need to use the nomi in a command. 

Create the rest of the items for our adventure as follows: 

TOOLBOX [R] TOO (R] 3 [R] N (R) [R] Y 

GUN [R] GUN [R] 1 [R] [R] [R] Y 

FLASHLIGHT [R] FLA [R] 5 [R] [R] [R] Y 

COAT [R] COA [R] 5 [R] [R] [R] Y 

SALESMAN [R] SAL [R] 1 [R] N [R] [R] Y 

DIAMOND [R] DIA [R] 4 [R] [R) OPEN CHEST [R] OPENED LOCK [R] R 

|R] YOU FOUND SOMETHING [R) IT'S LOCKED TIGHT [R] Y 

CHEST [R] CHE [R] 4 [R] N [R] [R] Y 

OPENED LOCK [R] OPE [R] 4 [R] N [R] PICK LOCK [R] ICE PICK [R] [R] 

YOU GET THE LOCK OPEN [R] YOU CAN'T [R] Y 

KITCHEN [R] KIT [R] C [R] Y 

CELLAR [R] CEL [R] C [R] Y 

BEDROOM [R] BED [R] C [R] Y 

PORCH [R] POR [R] C [R] Y 

LOCK [R] LOC [R] C (R] Y 

A player completes a text adventure by typing in a prede- 
fined series of commands, all of which lead to the solution 
of the game's puzzle. We, of course, have to supply our ad- 
venture database with all the commands our game will re- 
spond to. Some commands— DROP, GET, LOAD and SAVE 
— are already built into the compiler, so you don't have to 
worry about them. Everything else is up to us. Anytime the 
player types a command that isn't in our database, he'll get 
the message YOU CAN'T DO THAT. 

Choose the "Work on Commands" selection from the 
main menu, then the "Simple Commands" selection from 
the commands menu. Now type: 

LOOK COAT [R] COAT [R] [R] [R] IT LOOKS WARM [R] YOU HAVE TO 

HAVE IT FIRST [R] Y 

LOOK PORCH [R] [R] 7 [R] YOU SEE THE FRONT DOOR [R] Y 

Simple commands are those whose only result is to print 
a message to the player. When our player types LOOK COAT 
in any room and has the coat in his inventory, he'll get the 
message IT LOOKS WARM. If he doesn't have the coat, he'll 
see YOU HAVE TO HAVE IT FIRST. 

Now, select "Movement Commands" from the command 
menu and type: 

GO CELLAR [R] FLASHLIGHT [R) |R] [R] OKAY [R] THE STAIRS ARE TOO 
DARK [Rl 3 [R] Y 

The above command will move the player to the cellar 
from any room (thereby bypassing a long series of direc- 
tional commands), by simply typing GO CELLAR. There's 
just one requirement: the player must have the flashlight 
in his inventory. If he tries this command without the flash- 
light, he'll get the message THE STAIRS ARE TOO DARK. 

Movement coimnands don't have to be as explicit as the 
GO type. How about a command like WAVE WAND, that 
moves the player into a magician's laboratory? The player 
may not even know what'll happen when he waves the 
wand, adding an element of surprise to your game. 

The final two movement commands for our adventure are 
set up as follows: 
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GO BEDROOM [R] [R] [R] OKAY [R] 4 [R] Y 
GO KITCHEN [R] [R] [R] OKAY [R) 2 [R] Y 

Final commands are similar to simple commands, except 
that they end the game, with our struggling player victori- 
ous; they're the last step in the game's solution. Select "Fi- 
nal Commands" from the command menu, then type: 

GIVE DIAMOND [R] DIAMOND [R] [R] 1 (R] MISSION ACCOMPLISHED! 
[R] YOU DONT HAVE IT [R] Y 

Fatal commands also end the game, but with the player 
the loser. Select "Fatal Commands" from the command 
menu. Now type: 

SHOOT GUN [R] LOADED GUN [R] [R] [R] YOU SHOT YOURSELF! [R] 

YOU CANT DO THAT [R] Y 

Now, if the player types SHOOT GUN in any room and 
he has the loaded gun in his inventory, the game will end 
with the message YOU SHOT YOURSELF! 

The last type of command is the item command. These 
complicated constructs allow you to employ "object meta- 
morphosis" in your game. Select "Item Commands" from 
the command menu and type: 

LOAD GUN [R] GUN [R] BULLET |R] [R] LOADED GUN |R] [R] GUN [R] 
BULLET [R] BE CAREFUL NOW! [R] YOU NEED SOMETHING [R] Y 

Now, if the player has both the gun and the bullet in his 
inventory and types LOAD GUN, he'll get the message BE 
CAREFUL NOW'.; the loaded gim will appear in his inven- 
tory; and the gun and the bullet will be deleted from the 
game. In a sense, we're allowing the player to combine two 
items, to create a third, new item. This command type has 

dozens of variations. 

Last, we need to enter the text for the game's intro screen. 
Select "Intro Text" from the main menu, then type the fol- 
lowing text as it appears here, using spaces for formatting. 

NOWS YOUR CHANCE TO MAKE A LITTLE 
EXTRA CASH. A COUPLE OF MINUTES AGO, 
A JEWELRY SALESMAN CAME TO CALL. IN 
FACT HE'S SITTING IN YOUR LIVING 
ROOM RIGHT NOW. HE WAS AT FIRST IN- 
TERESTED IN SELLING YOU SOME OF HIS 
WARES, BUT THEN YOU TOLD HIM ABOUT THE 
UNSET DIAMOND YOU'VE BEEN TRYING TO 
SELL. HE WANTS TO BUY IT FROM YOU, 
BUT FIRST YOU HAVE TO FIND IT 
GOOD LUCK! 

After typing the text, press RETURN, then save the text 
to disk by responding to the EVERYTHING OK? prompt 
with Y 

That finishes up our sample adventure. That wasn't so 
hard, was it? It'll be a little tougher when you have to or- 
ganize your own, original game — it's always easier to fol- 
low examples— but with practice, you'll be cranking out 
adventure games like a pro. Hold on to the data files we've 
created in the tutorial; next month we'll be compiling them 
into a complete game. 

The database printer. 

Listing 2 is the The Wizard's database printer module. 
Whenever you want a hard copy of your adventure's data, 
just run this with your adventure database in drive 1. 

Ks it's printed here, the program is set up for any Epson- 
compatible printer, but if your printer doesn't meet this re- 
quirement, don't panic. There's only one printer control code 
(? #2;CHR$(15]) in the program, located in Line 90, that sets 
the printer for compressed print. Those without compati- 



ble printers should check their manuals for the proper code 
to insert here. If your printer isn't capable of compressed 
print, you can still use the program (though the output won't 
be nicely formatted). Just remove the printer control from 
Line 90. 

Coming soon: the compiler. 
Next month, in these very pages, we'll present The Wiz- 
ard's compiler module, completing the package. That gives 
you plenty of time to design your own game and enter the 
data into the editor. Use your imagination. I'm sure there 
are dozens of possibilities offered by The Wizard that even 
I, the author, haven't thought of yet. Surprise me. H 



Listing 1. 
BASIC listing. 

ftE 10 REM KKKKKKKXKKKKKKMKKKKKKKKKKXKKX 
BL 20 REM * THE WIZARD * 

JJ 30 REM * EDITOR MODULE » 
EL 40 REM * by » 

KG 50 REM » Clayton MalnuH « 

flj 60 REM KXKKXKKKKKKKKKKKKMKKKXKMKKKKM 

JK 70 Hl=i:M2=2:H3=3:N4=4:N5=5:N6=6:H7=7: 

N8=8 : N9=9 : N10=iO : Nll=ll : N12=12 : N13=13 : 

N14=i4 : Ni5=15 : N16=15 
JH 80 N17=i7:N18=18:Ni9=19:N2O=20:GOTO 42 

40 
Kft 90 RESTORE 4520:F0R K=Mi TO lOOlREflD A 

:5S$tK)=CHRStA) IKEXT X:RETURN 
PK 100 TRAP 120:CL0SE ttNl:DPEN ttNl,N4,N0, 

F$ 
BR 110 INPUT «NljCMD$:CCNT=CCNT+Hl:CMStCC 

NT»N15-N14)=CMDSCN1,N15J : GOTO 110 
ZB 120 RETURN 
RJ 130 IF EDIT THEN OPEN «N1, N12, NO, FS : PO 

INT ttNl, SECTOR, BYTEiGOTO 150 
IF 140 CLOSE »N1:0PEN »N1,N9,N0,FS 
KC 150 ? tlNljCMDS: CLOSE «H1: RETURN 
EZ 160 POKE 752,Nl:L0CATE COL, ROW, ft : POSIT 

ION C0L,R0W:IF A=ftSCt"i"J THEN ? "■"; : 

GOTO 180 
€H 170 ? CHRS(ft+128J; 
NN 180 GOSUB 860:RETURN 
KZ 190 SOUND N0,20,N12,N8:F0R X=N1 TO 50: 

NEXT X:S0UND NO, NO, NO, NO : RETURN 
ZJ 200 CLOSE «Nl:OPEN »N1, N4, NO, "K : " : GET 

»Nl,ft:CLOSE «Nl:RETURH 
VC 210 GRAPHICS NO:POKE 559, NO : DL=PEEK C56 

0J+256»PEEK(561)+N4 
FZ 220 POKE DL-N1,70:P0KE DL+N2, N7 : POKE D 

L+N3,N6:P0KE DL+N4,N6 
TE 230 FOR K=N19 TO 23 : POKE DL+X,N6:NEXT 

X:POKE DL+24,65:P0KE DL+25, PEEK C560J : P 

OKE DL+26,PEEKt561) :P0KE 752, N1 
K5 240 POSITION 25 , NO:? "the Wiz ard" ; PQSI 

TION N3,H17:? "1^1 JJ--*.-»:M,Trr:TTn" : RETURN 
PH 250 POKE 709,N10:P0KE 710,N0:P0KE 712, 

112:P0KE 559,34:RETURN 
YH 260 GRAPHICS NO:POKE 559, NO : DL=PEEK C56 

0} +256*PEEK C561) +N4 
ME 270 POKE DL-N1,71:P0KE DL+N3 , N6 : POKE D 

L+21,N6:P0KE DL+22,N6:P0KE DL+23,N6 
RR 280 POKE DL+24,65:P0KE DL+25, PEEK C5603 

:P0KE DL+26,PEEKC561) 
DC 290 POKE 752,Nl:P0KE 71O,N0:POKE 712,1 

12:P0KE 82, NO 
FO 300 POSITION N5,N0:? "the Wizard":RETU 

fm 

AK 31 POSITION N 0,N5:? "ii^" I I II I I II":? 

"4. >*<^: BTm>»>B";? — 



EV 320 ? 



ROOM: 
NEG TEKT:I 



cohhand: 

I/R:, 
I POS TEXT! 
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Lyco Computer 

Marketing & Consultants 



Since 1981 




ATARI / ATARI ST SOFTWARE 



Mark "Mac" Bowser, Sales Manager 



I would personally like to thank all of our past customers for helping to 
make Lyco Computer one of the largest mail order (.v>m,-r.n. -c: ^nd a 
leader in the industry. Also, I wouid like to extend my personal invitation to 
all computer enthusiasts who have not experienced the services that we pro- 
vide. Please call our trained sales staff at our toll-free number to inquire 
about our diverse product line and weekly specials. 

First and foremost our philosophy is to 1,3::;-. .-:'.■,■■: ast of the changing 
market so that we can provide you with not only factory-fresh mercudndise 
but also the newest models offered by the manufacturers at the absolute best 
possible prices. We after the widest selection of computer hardware, software 
and accessories. 

Feel free to call Lyco if you want to know more about a particular item, 
can't stress enough that our toll-free number is not just for orders. Many 
companies have a toll-free number for ordering, but if you just want to ask a 
question about a product, you have to make a toll call. Not at Lyco. Our 
trained sales staff is knowledgeable about all the products we stock and is 
happy to answer any questions you may have. We will do our best to make 
sure that the product you select will fit your application. We also have Satur- 
day hours — one more reason to call us for all your computer needs. 
Once you've placed your order with Lyco, we don't forget about you. 
Our friendly, professional customer service representatives will find answers 
to your questions about the status of an order, warranties, product availabili- 
ty, or prices. 

Lyco Computer stocks a multimillion dollar inventory o( factory-fresh 
merchandise. Chances are we have exactly what you want right in our ware- 
house. And that means you'll get it fast. In fact, orders are normally shipped 
within 24 hours. Shipping on prepaid cash orders Is free in the U.S., and 
there is no deposit required on C.O.D. orders. Air freight or UPS Blue/Red 
Label shipping is available, too. And all products carry the full manfacturers' 
warranties. 

I can't see why anyone would shop anywhere else. Selection from our huge 
in-stock inventory, best price, sen/ice that can't be beat— we've got it all here 
at Lyco Computer. 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 

In PA: 1-717-494-1030 

Hours: 9AM to 8PM, Mon. - Thurs. 

9AM to 6PM, Friday — 10AM to 6PM. Saturday 

For Customer Service, call 1-717-494-1670, 

9AM to 5PM, Mon. - Fri. 

Or write; Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 

Rlsk-Fr«« Policy: • hjll manufacTturers' warranties • no sates tax outside PA 

• prices show 4% cash discount; add 4% for credrl cards • APO. FPO, 
tnlemational: add $5 plus 3% for pnonty • 4-weei( claarance on personal checks 

• WB ctw* lor credit card Iheft • compatatjility not guaranteed • return 
Butt>Qh7atinn rAfUHrmi • nnr:fl/availabilitv SutMSCt to chanae 

^^....^^.■^.^^.^..^.^-...^^-^^^^^^. ,.. „ 

PRICE GUARANTEE 

Since 1901. we hava led Iho inUuaKy bv conlinmng lo oiler the lowest national prir.o;i * 

|iiovi(1>no budhly soru.co Many companies Have come nnU gone Ifyiny lo Iniilulo out qual'ly Jiu \^ 

Geruice II by sumo o«efsighi we do no\ have the lowest prices advefliied on Iho p(oduci»you ^Is 

desKK. then wc would appreciate the opportuniiy to rnclily ihis oversiohl ' 



m 



m 



Access: 

Leader Board $24,95 

TournamenI #1 $14.95 

Triple Pack $14.95 

Microprose: 

Conflict in Vietnam $24.95 

F-15 Strike Eagle $22.95 

Kennedy Approach $18.95 

Silent Service $22.95 

Top Gunner $18.95 

Microleague: 

l^icroleag. Baseball $24.95 

General Manager $24.95 

Stat Disk $17.95 

'86 Team Disk $14.95 

Broderbund: 

Print Shop $25.95 

Print Shop Compan $22.95 

Graphic Lib. I, II, ill $15.95 

Karateka $12.95 

Bank St. Writer $29.95 

Optimized Systems: 

Action $46.95 

Action Tool Kit $18.95 

Basic XE $46.95 

Basic XL $36.95 

Basic XL Tool Kit $18.95 

Activislon: 

Hacker $14.95 

Hitch Hikers $24.95 

Leather Goddesses $24.95 

Moonmist $24.95 



Strategic Simulations 

Battle of Antetiem 

Battlecruiser 

Nam 


. $32.95 

. $35.95 

$24 95 


Phantasie 

Wargame Construe. .. 

Warship 

Wizards Crown 


. $24.95 

. $18.95 

. $35.95 

$24 95 


Sublogic: 

Flight Simulator 11 

Night Ivlission Pinball . 
Scenery #1-#6 ea. .. 
Scenery #7 


. $31.95 
. $21,95 
. $14.95 
. $17.95 


Firebird: 

The Pawn 


. $27 95 


t^ach II 


. $17 95 


ATARI ST 

Access: 

Leader Board .'S?4 95 








$24 95 


Microleague: 
Microleague Baseball . 

General Manager 

Microprose: 
Silent Service 


$35.95 
$19.95 

$24 95 


F-15 Strike Eagle 

Optimized Systems: 


$24.95 
$48.95 


Personal Prolog 


$51 .95 



Activislon: 

Champion. Baseball .... $24.95 

Champion. Basketball . $24.95 

Championship Golf $New 

GFL Football $24.95 

Hacker 2 $24.95 

Leather Goddesses $24.95 

Moonmist $24.95 

Music Studio $29.95 

Paint Works $24.95 

Shanghai $24.95 

Bureaucracy $24.95 

Stationfall $24.95 

Lurking Horror $24.95 

Firebird; 

Pawn $26.95 

Stargiider $26.95 

Golden Path $26.95 

Guild of Thieves $27.95 

Tracker $27.95 

Epyx: 

Apshai Trilogy $14.95 

Sub Battle Simulator ... $24.95 

Super Cycle $14.95 

World Games $24.95 

Wrestling $24.95 

Strategic Simulations: 

Phantasie $24.95 

Phantasie II $24.95 

Road War 2000 $24.95 

Unison World: 

An Gallery 1 or 2 $18.95 

Print Master $24.95 



WE STOCK OVER 5000 SOFTWARE TITLES! 



MONITORS 

THOMSON: 

230 AmberTTL/12" $85 

450 AmberTTL/15" $149 

980 White TTL/20" $695 

4120 CGA $225 

4160 CGA $289 

4460 EGA $359 

4375 Ultra Scran $525 

ZENITH: 

ZVM 1220 $89 

2VM 1230 $89 

HAYES: MODEMS 

Smartmodem 300 *125 

Smartmodem 1 200 $369 

Smartmodem 2400 $559 

AVATEX: 

1 200 he $99.95 

2400 $219 



DISKETTES 

MAXELL 51/4 3.5 

SSDD $8.99 $12.50 

DSDD $9.99 $17.99 

BONUS 

SSDD $6.95 

DSDD $7.50 

SKC 

SSDD $7.99 $11.99 

DSDD $7.99 $14.99 

DSHD $16.99 

VERBATIM 

SSDD $9.99 $12.99 

DSDD $11.99 $18.99 



1-800-233-8760^ 



r 



.IL 



U^i 



micronici-inc 

NP-10 
^0'^$125°° 

• 100 CPS draft 

• 25 NLQ 

• 1 Year Warranty 




with purchase of 
2 printer ribbons 
(limited offer) 



Panasonic 

1091 i 
FOR 
ONLY! 
$165^5 

• 160 CPS draft 

• 32 NLQ 

• 2 Year Warranty 




FAST 



SEIKOSHA 

SL - 80 Al 
SLASHED! 

$295^5 

• 135 CPS draft 

• 45 NLQ Superb Letter 

• 2 Year Warranty Quality. 




SAVE ON THESE PRINTERS 



STAR MICRONICS 

NP-10 $SPECIAU 

NX-10 $144.95 

NL-10 $195.95 

SD-10 11229.00 

NX-15 !i279.95 

ND-10 !;249.95 

SD-15 !:345.00 

SR-10 ;;369.oo 

ND-15 !;375.95 

SR-15 S429.00 

NB24-10 S409.95 

NB24-15 $549.95 



SILVER REED 

EXP 420 P $199.00 

EXP 600 P $CALL 

EXP 800 P $649.00 



EPSON 



LX-BOO $169.95 

FX-86e $289.95 

EX-800 $349.95 

FX-286e $415.95 

LQ-800 S419.95 

EX-1000 S469.95 

LQ-1000 S589.95 

LQ-2500 $839.95 



CITIZEN 



120 D $164.95 

MSP-10 $259.95 

MSP-20 $289.95 

MSP-15 $324.95 

MSP-25 $389.95 

MSP-50 fCALL 

MSP-55 $CALL 

Premiere 35 $464.95 

Tribute 24 $624.95 



PANASONIC 

1080 i $139.95 

1091 i $165.95 

1092 1 $295.00 

3131 $259.00 

1592 $379.00 

3151 $379.00 

1595 $419.00 

4450 laser $CALL 

1080 I Model 2 $154.95 

1091 i Model 2 $174.95 

OKI DATA 

OklmateSO $119.00 

Plug n Print $CALL 

12CrNLQ $189.95 

182 $279.95 

192+ !;309.95 

193+ !!449.95 

292 w/interface ! 1449.95 

293 w/lnterface !;589.95 

180 $219.95 



SEIKOSHA 

SP-180AI $124.95 

SP-1200 Ai $155.95 

SP-1200 AS RS232 $155.95 

SL-80AI !i295.95 

MP-1300Ai S299.95 

MP-5300Ai !;375.95 

BP-5420 Ai $879.95 



BROTHER 

HR 40 $579.00 

HR 60 $709.95 

M 1109 i;i95.00 

M 1409 S299.00 

HR20 S339.00 

M 1509 11365.00 

M 1709 11475.00 

Twinwriter 6 Dot + Daisy . $899.00 



AATARr 



•620 Keyboard 
•Two Button Mouse 

• Midi In/Out Ports 

• Built in Drive 



$599'* 

AATARI 



520 ST FM 
COLOR SYSTEM 





.520 ST FM 

MONO SYSTEM 



ATARI 
HARDWARE 

130 XE $SPECIAL! 

65 XE $89.95 

SM 124 Mono Monitor . $139.95 
SC 1224 Color Monitor. $299. 95 

XM801 Printer $185.95 

XM 804 ST Printer . . . $185.95 

SX 212 Modem $89.95 

XM 301 Modem $42.95 

SHD 204 Hard Drive . . $569.95 
SF 314 Double Drive . . $199.95 

Indus GT Drive $175.95 

SX551 Drive $179.95 



AATARI' 



• SC 1224 Color Monitor 

• Built in 3'/! incfi drive 

• 1040 Keyboard 

• Midi In/Out Ports 



$799'= 

AATARI 



1 040 ST 
COLOR SYSTEM 




•520 Keyboard 

• Midi In/Out Ports 

• Built in Drive 



$475 




1 040 ST 
MONO SYSTEM 

• SM 124 Mono Monitor 

• Built in 3'/! inch drive 

• 1040 Keyboard 

• Midi In/Out Ports 



95 



AATARI 

$495 PC 



WE WILL NOT 
BE UNDERSOLD! 




(^Seagate 

Hard Drives For PC Compatibles 

ST 225 (20 Meg) $275.95* ^|^ ATARI 

ST 238 (30 Meg) $315.95' 

ST 251 (40 Meg) $489.95* 

price includes controller! 

ST 251 (40 Meg) w/o Controller. $425.95 



4^~-~S $665'= 



• Home Filing Mgr. 

• Defender 

• Star Raiders 

• Paint 

• Time Wise 

• ET Phone Home 

EA. $14.95 



SPECIAL! 

130 XE 

$99°° 

with purchase of 
any 2 Software Titles 
listed on left. 
(while supplies last) 



''Factory fresh Merchandise 

CIRCLE #115 ON READER SERVICE CARD 




^ The Wizard 



continued 



HV 330 IF M THEN ? "^aMii^inXilB" 

XF 340 POKE 559,34!RETURN 

HG 350 CMD$(N1)= CMD$ C1063 = CMD$ CN2 

)=CMD$:EDIT=N0 
DZ 360 C0L=N13:R0W=N5:L1=N15:G05UB 160:IF 

TEMP$="" THEN G05UB 190:G0T0 360 
JN 370 IF LENCTEMP$J<H15 THEM FOR X=LEN CT 

EMP5)+H1 TO N15:TEMP5CX)=" "SNEKT K 
5X 380 CM=U5RCADRCS5$),ftDRCTEMP$3,flDRtCM$ 

3,LENtCM$),N15) :IF NOT CM THEN 480 
6J 390 CL05E «N1;0PEN ttNl, N12, NO, F5 : TRAP 

420 
RM 400 NOTE «N1, SECTOR, BYTE : INPUT «N1;CMD 

$:IF CMD$tNl,N15)<>TEMP$ THEN 400 
BO 410 EDIT=Nl:GOTO 430 
QQ 420 POSITION N3,N20:? "COMMAND USED!": 

GOSUB 190:F0R X=N1 TO 200:NEXT X:GOTO 

360 
KC 430 POSITION N13,N7:? CMDS CN16, 28) : P05 

ITION N13,N8:? CMD$(81,81) :P05ITI0N Nl 

3,N10 
VA 440 IF <i5CCCMD5C29J)=N0 THEN ? "AMY":G 

OTO 460 
UK 450 ? ftSCICMDSC293) 
QO 460 POSITION N13,N12!? CMD$ C30, 54) : POS 

ITION NJ.3,N13:? CMD$C55,79) 
EM 470 IF M THEN POSITION N13,N15:? flSC (C 

MD$(80]} 
IX 480 TRftP 4OO00:CLO5E »N1 : IF NOT EDIT 

THEN CMD5tNl,LENCTEMP$))=TEMP$:G0T0 52 


DO 490 C0L=Ni3:R0W=N5:Ll=N15:GOSUB 160:IF 
TEMP$='"' AND EDIT THEN ? "*^t^"; CMD$ tNl 

,N15) :GOTO 520 
ZH 500 IF TEMPS="" THEN GOSUB 190: GOTO 49 

e 

¥H 510 CMD$CH1,LEN(TEMP$))=TEMPS 

AX 520 R0W=N7:L1=N13: GOSUB 160 : IF TEMP$=" 

" AND EDIT THEN ? •■*■*■"; CMD$ tN16, 28) : GO 

TO 550 
HI 530 IF TEMP$ = "" THEN TEMPS="NONE" : ? "t^ 

*-";TEMPS 
DM 540 CMD5CN16,N15+LENCTEMP$))=TEMP$ 
JH 550 IF CMD$CN16,N19)<>"N0NE" THEN 570 
MX 560 POSITION N13,N8:? " " : CMD$ C81, 81) = 

POSITION N13,M13:? BS C74) : CMDS £55, 

79)=B$t75) JGOTO 620 
LI 570 R0W=N8:L1=N1:G0SUB 160:IF TEMP$<>" 

" AND TEMPS<>"R" AND TEMPS<>"I" THEN G 

OSUB 190:GOTO 550 
NH 580 IF EDIT AND TEMPS='"' AND CMD$CN16, 

N19)="N0NE" THEN ? "*■*■ " : CMDS C81, 81) =■' 
":G0T0 620 
TL 590 IF EDIT AND TEMPS="" AND CMD$C81,8 

1)="R" THEN ? ■■«-*R":GOTO 620 
NK 600 IF TEMPS="" THEN TEMPS="I" : ? "*■*■••: 

TEMP$ 
XV 610 CMDS(81,81)=TEMP$ 
CA 620 R0W=N10:L1=N3: GOSUB 160: IF TEMP$<> 

"" OR HOT EDIT THEN 660 
KI 630 IF ASCCCMD$(29))=N0 THEN ? "*+ANY" 

:G0T0 650 
TZ 640 ? "^*^";A5CtCMD$(29)) 
no 650 GOTO 690 
MC 660 IF TEMP$="" OR TEMP$="AHY" THEM PO 

SITION COL, ROM:? "AMY" : TEMP$="0" 
UU 670 Z$=TEMP5:TRAP 620 : IF UAL (Z$)<N0 OR 

UALtZ$)>30 THEN GOSUB 190:G0T0 620 
FA 680 CMD$C29,29)=CHR$CUALCZ$)) 
HJ 690 R0M=N12:L1=25: GOSUB 160; IF TEMPS=" 

" AMD EDIT THEM ? "<■*•"; CMD$ £30, 54) : GOT 

720 
CU 700 IF TEMPS="" then GOSUB 190: GOTO 69 



HI 718 CMDS £30, 29+LEN (TEMPS) )=TEMPS 
CO 720 IF CMD$£N16,N19)="N0NE" THEN 760 
MM 730 R0M=M13: GOSUB 160: IF TEMP$="" AMD 
EDIT THEM ? "**^"; CMD$ £55, 79) : GOTO 760 



fEf 749 IF TEMP$ = "" THEN ? "*•«• ":GOTO 760 
t 750 CMD$£55,54+LEN£TEMPS))=TEMP$ 
UQ 760 IF NOT M THEN 800 
CL 770 R0M=N15:L1=N2: GOSUB 160 : IF TEMPS=" 

" AND EDIT THEN TEMP$=5TR$ £ASC £CMD$ £80 

))):? "<■«■"; TEMP$: GOTO 790 
m 780 IF TEMP$="" THEN GOSUB 190 : GOTO 77 


EM 790 TRAP 770 : Z$=TEMPS : CMDS £80, 88) =CHR$ 

£UAL£Z$)) :M=N0 
NG 800 POSITION N3,N20:? "EVERYTHING OK?" 

:G0SUB 200 
MP 810 IF A=ASC£"N") OR A=ASC £"n") THEM R 

ETURN 
AI 815 IF A<>ASC£"Y") AND A<>ASC£"y") THE 

N 800 
MS 820 IF EDIT THEN CM$ £CM*15-14, CM*15) =C 

MD$£N1,N15) 
IN 830 IF NOT EDIT THEN CM$ £LEN £CM$} +N1] 

=CMD$£N1,N15) 
ZH 840 RETURN 

St 850 REM KXXXXK INPUT ROUTINE XXXKKKK 
ML 860 L=N0:L2=N0:L3=N0:TEMP5 = POKE 764 

,255 
IR 870 GOSUB 2O0:IF A=RETRN THEN POKE 752 
fjj^ ■ 7 • RETURN 

JC 880P0KE 752,N0:IF A=BACK5P THEM 930 
PV 890 IF A=ESCAPE THEN POKE 752,N1:P0P : 

GOTO 980 
UR 900 L=L+Nl:L2=L2+Nl:IF L>L1 THEN POKE 

752,Nl:P05ITI0M C0L+L2-M1, ROM: ? " " : RE 

TURN 
ZZ 910 IF L2>38 THEN L2=N1 : R0M=R0M+N1 
KP 920 POSITION C0L+L2-N1,R0M:? CHR$ £A) ; : 

TEMP$£L)=CHRSfA) :G0T0 870 
EP 930 IF L>NO THEN ? "V; : L=L-N1 : L2=L2-N 

l:IF L=N0 THEN TEMPS="" 
BM 940 IF L2=N0 THEN L2=38 : R0M=R0M-N1 : L3= 

L3+1 
HM 950 IF L>N0 THEM TEMPS=TEMPS £N1, L) 
RS 960 GOTO 870 

Ift 970 REM XXXXXXXXX MAIN MENU XXXXXXXX 
YX 980 GRAPHICS NO : POKE 559, MO : DL=PEEK £56 

0)+256»PEEK£561)+N4 
GU 990 POKE DL-N1,70:P0KE DL+N2, N7 : POKE D 

L+N3,N6:P0KE DL+N4,N6 
GU 1000 FOR X=N20 TO 23 : POKE DL+X,M6:MEXT 
X:POKE DL+24,65:P0KE DL+25, PEEK £560) : 

POKE DL+26,PEEK£561) :POKE 752, Nl 
TL 1010 POSITION 25 , NO:? "the wiz ard":POS 

ITION 23,N17:? "itUBSrajTEEHa" 
UD 1020 POSITION N12, N3:? "Q) Create a ga 

Me":POSITION H12,N5;? "0) Load a gawe" 

: POSITION Ni2,N7:? "0) Mork on rooMs" 
DE 1030 POSITION N12,N9:? "Q) Mork on ite 

MS":P05ITI0N N12,Nll:? "g) Mork on com 

Hands" 
CE 1040 POSITION N12,N13:? "0) Intro text 

":POSITION N12,N15:? "Q) Quit":GOSUB 2 

50 
XN 1050 GOSUB 2OO:M=N0 
At 1060 TRAP 105O:A=A-48:IF HOT LD AND A 

>M2 AMD A<7 THE N POSITION 21,N17:? "UE 

■jhrTiWi MlIJIt.liU i" ! GOSUB 190:GOTO 1050 
UT 1070 ON A GOTO 1370,1180,1598,2340,110 

0,4120,1160 
PZ 1080 GOTO 1050 

HL 1090 REM XXXXXM COMMAND MENU XXXXXXX 
YX 1100 GOSUB 210:POSITIOM N10,N4:? "Q) S 

iMple CoMMands": POSITION N10,N6:? "Q) 

Movewent CoHMands" 
JP 1110 POSITION N10,N8:? "R) iteM CoMMan 

ds":P05ITI0N N1O,N10:? "□) Fatal CoMna 

nds" 
HR 1120 POSITION N10,N12:? "0) Final coMM 

ands":GOSUB 250 
K5 1130 GOSUB 2O0:TRAP 1130 : A=A-48 : IF A<M 

1 OR A>M5 THEN 1130 
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UP 1140 ON A GOTO 3180,3240,3420,3300,336 


VN 1150 REM XKXXXXKXXK QUIT XXXXXXXXXXX 
«L 1160 POSITION 22,N17!? " fiRE YOU SURE 

? ":GOSUB 200:IF AOflSCC-Y") AND fiOA 

5C("y"J THEN 980 
UN 1165 GRAPHICS O : POKE 82,2:END 
£G 1170 REM XXXXXXXX LOAD GAME XXXXXXXX 
W 1180 TRAP 1350:P0SITI0N 23,N17:? " 

"IPOSITION 21,N17:? ■■ EffiQ 

Wi»JA<J1 "; ; INPUT FI$ 
5U 1182 IF FI50-V" AND FlS<>"y" THEN 980 
QC 1185 CLOSE ttNllOPEN »N1, N4, NO, "D : FILEN 

AME.DAT":INPUT «1;FI$:CL0SE «1 
IN 1190 FN$=FI$:FS="D:":F$tLENCF$J+NlJ=FI 

$ :F$CLENtFS) +N1 J =■'. NAM- 
FY 1195 ICNT = NO:ITM$ = CCNT=NO : CM$ = "" : CD 

$ = "":R$(N1)=" ":R$t30)= R$(N2J=RS 

SI 1200 CLOSE ttNl:OPEN »N1, N4, NO, F$ ; INPUT 

ttNl;N$:INPUT ON1,T$:CLOSE ttNl 
UU 1210 TRAP 4O0O9:LD=1 
VE 1220 F$CLENCF$)-N2)="ITM":0PEN ttNl,N4, 

HO,F$:TRAP 1270 
XW 1230 INPUT ttNl;I$:ICNT=ICNT+Nl:ITM$CIC 

HT*N13-N123 =1$ CNl, N13) 
OM 1240 CD$tICNT«M3-N23=l5(N14,N16J 
MI 1250 IF I$CN18,N20J="GET" OR I$CN18,21 

3="DR0P" OR I$tN18,21)="N0NE" OR I$CN1 

8,N18)=" " THEM 1230 
EX 1260 CCNT=CCNT+Nl:CM$(CCNT*N15-N14)=I$ 

CN18,32) :G0T0 1230 
TJ 1270 F$tLENCF5)-N2J="RMS":CL0SE ttNl:OP 

EN ttNl,N4,N0,F$:TRAP 1290 
GZ 1280 INPUT ttNl;RM5$:R=ASCCRMS$CNlJ) :R$ 

tR,R3="*"!G0T0 1280 
J& 1290 CLOSE ttNl:F5tLENCF$)-N2)="C0M":G0 

SUB 100 
BD 1300 F$tLENCF$)-N2J="'FAT":G0SUB lOO 
UK 1310 F$CLENCF$)-N2J="M0U":G0SUB 100 
CX 1320 F$tLENCF$)-N2)="FIN":G05UB lOO 
TD 1330 F5CLENCF$)-N2)="CHG":G0SUB 100 
RD 1340 CLOSE BNliGOTO 980 
QH 1350 POSITION 20,N17:? " 

■■:P05ITI0N 27,N17:? "ERROR !": FOR 
X=N1 TO 250:NEXT X:GOTO 980 
¥X 1360 REM XXXXX CREATE NEW GAME XXXXXX 
KO 1370 GRAPHICS NOlPOKE 559, NO : DL=:PEEK (5 

60J+256*PEEKC561J+N4!P0KE DL-N1,70 
IL 1380 FOR X=N2 TO N6:P0KE DL+X,N6:NEXT 

XIPOKE DL+N8,N6:P0KE DL+N9,N6 

LZ 1390 POKE DL+N11,N6:P0KE DL+N12,N6 

KO 1400 FOR X=N14 TO 24:P0KE DL+X,N6:NEXT 

X:POKE 708,54 

yc 1410 POSITION 2 5, NO:? "t he Wizard" :POS 

— 13?" 

3711 



Gane's title 

Nane for files 



ITION N2,N3:? " tTTTT 

BU 1420 POSITION N2,N5:? 

PU 1430 POSITION N2,N7:? 

" ' POKE 559 34 
PY 1440 POSITION Nll,N3!lNPUT NS:IF NS="" 

THEN 980 
GP 1450 POSITION N14,N5:INPUT TS : IF TS="" 

THEN 1450 
SB 1460 POSITION N16,N7:INPUT AS : IF AS="" 

THEN 1460 
YM 1470 F$CN3)=A$:FN$=A$!P0SITI0N N3,N12: 

? "EVERYTHING 0K?":G0SUB 200 
CR 1480 IF A=ASCC"N") OR A=A5C C"n") THEN 

1370 
FI 1490 IF A<>A5CC"Y") AND A<>ASCC"y"J TH 

EN 1470 
FX 1500 POSITION N3,N12:? "CREATING FILES 

":LD = N1 
Eft 1510 FSCLENCFS)+N1J=".NAM":0PEN »N1,N8 

,N0,F$:? aNl;NS:? aNl;TS:CL0SE «N1 
HA 1520 F$fLENtF$)-N2)="C0M":0PEN ttNl,N8, 
NO , F$ : CLOSE 8N1 : FS CLEN tFSJ -N2) ="RMS" : 
PEN «N1,N8,N0.F$:CL0SE ttNl 
UL 1530 F$ CLEN (FS)-N2J="ITM"i OPEN ttNl,N8, 



NO, FS : CLOSE ttNl : F$ CLEN CFS) -N2) ="FAT" : 

PEN ttNi,N8,N0.F$:CL0SE ttNl 
HD 1540 FSCLENCFSJ-N2J="M0U":0PEH ttNl,N8, 

NO, FS : CLOSE «N1 : F$ CLEN CF$) -N2J ="FIN" : 

PEN ttNl,N8,N0.FS!CLOSE »N1 
OE 1550 F$(LENtF5)-N2J="CHG":0PEN ttNl,N8, 

N0,FS:CL0SE «Nl:OPEN ttNl, N8, NO, "D : FILE 

NAME. DAT":? ttNl;A$:CL05E ttNl 
XE 1560 F$CLENtF$J-N2)="IMT":0PEN ttNl,N8, 

NO,F$:CLOSE ttNl 
ZT 1555 OPEN ttNl, N8, NO, "D ! FILENAME . DAT" : ? 

ttHljFN$:CLOSE ttNl 
UZ 1570 GOTO 980 

GN 1580 REM XXXXXX WORK ON ROOMS XXXXXX 
NW 1590 TRAP 1590 : POSITION 23,N17:? " 



DO 
JH 



SR 



ON 



UN 



1600 POSITION 24,N17:? " I'iH^V J-I-r -' 
PUT R:IF R<N1 OR R>30 THEN 1590 
1610 EDIT=NO:DIR=N0!F$CLENCF$J-N2J="RM 
S" 
_„ 1620 IF RSCR,R)<>"»" THEN 1660 
UL 1630 TRAP 1660:0PEN ttNl, N12, NO, F$ 
AU 1640 NOTE »N1, SECTOR, BYTE ! INPUT ttNl;RM 
S$:IF ASCCRMSSJOR THEN 1640 
1650 TRAP 4O0OO:EDIT=N1 

1660 NT=N0:ED=N0:CLOSE ttNllGRAPHICS NO 
JPOKE 756,CS:P0KE 752,Nl!P0KE 82,N1:P0 
KE 559,N0:DL=PEEKC5603+256»PEEKC561)+4 
1670 POKE DL-N1,71:P0KE DL+N3, N6 : POKE 
DL+24,65:P0KE DL+25, PEEK (560J : POKE DL+ 
26,PEEKC561) 

N5,N0!? "the wizard":P05 
"ROOM tt"jR 

lECBH-l? 



CM 1680 POSITION 
ITION 26, Nl;? 
WJ 1690 POSI TION N1 ,N3;? 
MZ 1700 ? ' 



DP 



NORTH: 
NEST: I 



SOUTH:, 
UP: 



1710 POSIT ION 

aaffl":? "Milt 



Ni,Ni3!? "EHEH 



GL 1720 POSITION 22, N5:? RM$: POSITION 22, 

N6:? RM$:P05ITI0N 22,N15:? RM$:POSITIO 

N 22,N16:? RM$ 
GQ 1730 FOR X=N7 TO N14:P05ITI0N 22, X:? R 

M1$;NEXT X 
US 1740 POKE 708,54:P0KE 71O,N0:POKE 712, 

112:P0KE 559,34 

1750 IF NOT EDIT THEN 1820 

1760 POSITION N13,N3:? RMS$CN2,25) 

1770 FOR X=N0 TO N5 : POSITION N10,N5+X: 

E=ASC{RMS5C27+X)) !IF E>30 THEN E=E-30 ! 

DIR=X+N1 

1780 ? E:NEXT X:POSITION N12,N13:IF N 

OT DIR THEN ? "NONE":GOTO 1840 

1790 ? DIR$CDIR,DIRJ 

1800 POSITION N8,N15;? RMSS C33, 45) : POS 

ITION N8,N16:? RMS$C96,96) ;POSITION Nl 

2,N19:? RMS$C71,95) 

1810 POSITION N12,N20:? RMSS C46, 70) : GO 

TO 1840 

1820 RMSSCN1)=" ":RMS$C95)=" " : RMSS CN2 

)=RMS$ 

1830 RMS5CN1,H1)=CHR$CR) 

1840 C0L=N13:R0W=N3:L1=24: 
TEMP$="" AND EDIT THEN ? 

,25) :GOTO 1870 

1850 IF TEMPS="" then GOSUB 190:GOTO 1 

840 

OK I860 RMS$CN2,N1+LENCTEMPS))=TEMPS 
EZ 1870 COL=N10:FOR RN=N0 TO N5 : R0W=N5+RN 

:L1=N2 

1880 POSITION COL+N2,R0W:? " ":G05UB 1 

60 

1890 IF TEMPS="" and 

tASCCRMS$C27+RN))) :? 

30 THEN ? UALCZ$)-30: 
EV 1900 IF TEMP$="" AND 



GS 
CT 
ftp 



CO 

AZ 
5H 



UC 

OF 

RB 
MM 



MB 



V« 
XY 



[GOSUB 160:IF 
"<^<-";RM5$CN2 



EDIT THEN Z$=STRS 
•**■••; :IF UALCZ$)> 
;GOTO 1990 
EDIT THEN ? ZS : VZ 
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^ =UftLtZ5J :GOTO 1540 

01 1510 IF TEMP$="" THEM TEMPS="0" : P05ITI 

ON COL,ROW+L3!L3=0:? TEMP$ 
JM 1520 TRflP 2O20:Z$=TEMP$:VZ=UftLtZ$) :UR= 

A5CtRM5$t27+RNJ) :IF UZ<MO OR UZ>38 THE 

N G05UB 190:G0T0 1880 
SA 1530 IF EDIT AND yzOUR AND yzOVR-30 

THEN IF UR>30 AND VZ>N0 THEM UZ=UZ+30 
SG 1940 RMS$C27+RN,27+RN)=CHR$CUZ) 
BM 1550 IF MOT EDIT OH Z$<>"0" OR DIROR 

N+Nl THEM 1550 
NY 1560 POSITION N12,N13;? "NONE" : P05ITI0 

N N8,N15:? B$C86) :P05ITI0N M8,N16:? " 

II 

KM 1570 POSITION N12,M15:? B$ C74J : P05ITI0 

N N12,M20:? BSC74> 
KL 1580 RM5SC33,56J=" 

":DIR=N0:60T0 2010 
ftX 1550 IF EDIT AND UALCZSJ>30 THEM ZS=ST 

R$tyAU(Z$)-30J 
gp 2000 IF yALCZSJ>NO THEM POSITION P CRN* 

Hl,Nl),PfRN + Nl,N2) :? EX$; "t*-*"; UAL tZ$J 
GT 2010 NEXT RM:TRAP 40000 : GOTO 2030 
HO 2020 GOSUB 150 : GOTO 1880 
UK 2030 C0L=M12:RDM=N13:Ll=M4:ODIR=M0:G0S 

UB 160 
MB 2040 IF EDIT AND TEMPS="" AMD DIR THEN 

? "*^*-";DIR$(DIR,DIR3 :G0T0 2140 
LO 2050 IF NOT EDIT OR TEMPS<>"N0NE" THE 

N 2080 
AG 2060 POSITION N8,N15:? B$ t86J : POSITION 

N8,N16:? " " 
FP 2070 POSITION N12,N15:? B$ C74) ! POSITIO 

N N12,N20:? BSC74J :ED=Nl:GOTO 2270 
OJ 2080 IF TEMP$ = "" THEM ? "*-*-MOME" : GOTO 

2270 
KB 2050 IF DIR>N0 THEN ODIR=DIR 
DJ 2100 FOR DIRzNl TO N6:IF DIR$ CDIR, DIR) 

OTEMPS then next DIR:G0SUB 150:G0T0 2 

030 

MS 2110 POP :? IF RMSSt26 + DIR,26+DI 

R)="¥" THEM GOSUB 150 ; DIR=ODIR : GOTO 20 

30 
LZ 2120 RMS$C26+DIR,26+DIR)=CHHSCASCCRMS$ 

t26+DIR,26+DIR))+30J : NT=N1 
HX 2130 IF ODIR>N0 THEN RM5$ C26+0DIR, 26+0 

DIR)=CHR$CASCtRMSSC26+0DIR))-30) 
BO 2140 C0L=N8:R0W3N15:L1=N13:G0SUB 160:1 

F EDIT AND TEMP$="" AND RM5$ C33, 33) <>" 
" THEN ? "**-";RMSSC33,45) :GOTO 2170 
CM 2150 IF TEMP$="" THEM GOSUB 150 : GOTO 2 

140 
OZ 2160 RM5$(33,32+LENCTEMPS))=TEMP$ 
GK 2170 R0W=N16:Ll=Nl!G0SUB 160:IF EDIT A 

ND TEMP$="" AND RMSS C56, 56) <>" " THEM 

? "*^*";RM5$t56.56) :GOTO 2219 
IM 2180 IF TEMP$<>"" AND TEMP$<>"R" AND T 

EMP$<>"I" THEN GOSUB 150 : GOTO 2170 
CM 2150 IF TEMP$="" THEN TEMP5="I" 
HX 2200 RMS$C95,56)=TEMPS:P0SITI0M M8,N16 

:? TEMPS 
OA 2210 C0L=N12!R0W=N15:L1=25: GOSUB 160:1 

F EDIT AND TEMP$="" AND RMSS {71, 71) <>" 
" THEM ? "<^*^"J RMSS C71, 55) : GOTO 2240 
ED 2220 IF TEMP$="" THEN GOSUB 150 : GOTO 2 

210 
OM 2230 RMSSC71,70+LENCTEMPS))=TEMP$ 
PF 2240 ROW=N20:GOSUB 160:IF EDIT AMD TEM 

P$="" AND RM5$C46,46) <>" " THEM ? "«•<•" 

;RM5SC46,70) :G0T0 2270 
EC 2250 IF TEMPS="" THEM GOSUB 150: GOTO 2 

240 
TD 2260 RMSS C46,45 + LEN (TEMPS) )=TEMPS 
ZC 2270 POSITION 25, N5:? "Everything" : POS 

ITION 28, Mil:? "OK?":GOSUB ZOO 
FP 2280 IF A=ASC("M") OR A=ASC C"n") THEM 

1660 




COMMAND: 

I/R:, 

POS TEXT: 



13SB 



DK 2250 IF A<>ASCC"Y") AND A<>ASCI"y") TH 

EN 2270 
BO 2300 IF ED THEN RMSS {33) =BS C36) : RMSS £2 

6+DIR,26+DIR)=CHRS{A5C{RMSS{26+DIR,26+ 

DIR))-30) 
ID 2310 IF EDIT THEN OPEN «N1, M12, MO, FS : P 

OINT 8N1, SECTOR, BYTE:? ttNl; RMSS : CLOSE 

«N1:EDIT=N0:GOTO 580 
VQ 2320 OPEN ttNl, N5, NO, FS : ? ttMl; RMSS : CLOS 

e »ni:rS{r,r)="*":r=r+ni:goto I610 

FU 2330 REM KXMXXKK WORK ON ITEMS XKMXK 

SM 2340 IS{N1)= IS{12G)=" ":IS{N2)=IS: 

CNT=N0:EDIT=MO: GOSUB 260 

UW 2350 POSIT ION 27, Ml:? " ftnTH " ; POSITION 

no,n3:? '•mmmmsiMiB"TnmmmmiEnM 

lA 2360 ? 

OR 2370 ? 

0":? " 
FY 2380 ? 

":POKE 555,34 
BZ 2350 F${LEN{FS)-M2)="ITM" 
LL 2400 C0L=N13:R0M=M3:L1=M13:G0SUB 160:1 

F TEMPS="" THEN GOSUB 150:GOTO 2400 
NC 2410 IF LEN{TEMPS)<M13 THEM TEMPS {LEM { 

TEMPS) +N1) =B$ {87+LEH {TEMPS) ) 
BE 2420 IF LEN{ITMS)=N0 THEN 2550 
TG 2430 I=USR{ADR{SSS),ADR{TEMP$),ADR{ITM 

S) ,LEN{ITMS),N13) :IF MOT I THEN 2550 
EJ 2440 CLOSE BHl : OPEN ttNl, M12, MO, FS : EDIT 

rNl 
LD 2450 NOTE ttNl, SECTOR, BYTE : INPUT ttNlJiS 

:CNT=CNT + N1:IF IS {Nl, LEN {TEMPS) ) OTEMP 

S THEN 2450 
AO 2460 POSITION N13,N4:? IS {N14, N16) : POS 

ITION N13,M6:A=ASC(I$(H17)) :IF A=65 TH 

EN ? "ANY":GOT0 2500 
OR 2470 IF A>30 AND A<61 THEM ? ASCCIS{M1 

7))-30:G0T0 2500 
AM 2480 IF A<31 THEM ? ASC {IS {N171 ) : GOTO 

2500 
GH 2450 ? "C":G0T0 2550 
YL 2500 POSITION M13,M8:IF A>30 AND A<>65 

THEM ? "M":GOTO 2520 
Y5 2510 ? "Y" 
HB 2520 POSITION N13,N10:? IS {N18, 32) : IF 

lStN18,21)="N0NE" THEN 2550 
GO 2530 POSITION N13,N12:? IS {33, 45) : P05I 

TIOM M13,N13:? IS{56,55) 
YU 2540 POSITION N13,N15:? IS {46, 70) : P05I 

TION N13,N16:? IS{71,55) 
CG 2550 CLOSE ttNl 
PP 2560 IF NOT I THEN 2580 
LQ 2570 C0L=N13:R0W=N3:L1=N13:G0SUB 160:1 

F EDIT AND TEMPS="" THEN ? "++":IS{N1, 

N13) :G0T0 2550 
CT 2580 I${N1,LEN{TEMPS))=TEMPS 
XE 2550 R0W=N4:LlrN3:E=N0:G05UB 160 : IF LE 

N{TEMP$)<N3 and edit then ? "**-":lS{Nl 

4,N16} :GOTO 2650 
Z:M 2600 IF LEN{TEMPS)<N3 them GOSUB 150 :G 

OTO 2550 
RA 2610 IF LEN{CD$)=M0 THEM 2640 
TK 2620 IF EDIT THEN E=USR {ADR {SSS) , ADR {I 

S {N14, N16) ) , ADR {CDS) , LEM {CDS) , N3) 
CM 2630 A=USR{ADR{SSS),ADR{TEMPS),ADR{CDS 

),LEN{CDS),N3) :IF A THEM GOSUB 150:G0T 

2550 
FE 2640 IS{M14,N16)=TEMPS 
YD 2650 R0W=N6:L1=N3:G0SUB 160 : ZS=TEMPS : I 

F ZS="C" THEN IS{N17,N17)=ZS:? "**C " 

:GOTO 3030 
CZ 2660 IF ZS="ANY" THEN IS {N17, N17) ="A" : 

GOTO 2760 
m 2670 IF EDIT AND Z$="" AND ASC{IS{N17) 

)<31 THEN ? "*^*";ASC{IS{N17)) :GOTO 276 
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QD 2680 IF EDIT AND Z$="" ftND ft5CtlSCN17) 

)<61 THEN ? "**^";fl5CClS(N17J)-30:GOTO 

2769 
JS 2696 IF EDIT AND ZS="" AND I$tN17,N17) 

= "A" THEN ? "*-<-ANY":GOTO 2760 
KY 2700 IF EDIT AND Z$="" THEN ZS="C":? " 

*-f"jZ$:G0T0 3030 
XJ 2710 IF Z$ = "" THEN ? "**-ANV" : IS CN17, Nl 

7)="A":G0T0 2760 
D5 2720 TRAP 2750:IF VAL tZ$J<NO OR UAL (ZS 

J>30 THEN G05UB 198 : GOTO 2650 
JE 2730 I$CN17,N17)=CHRStUAL(Z$)) :IF UALt 

Z$3=N0 THEN 3830 
UG 2740 GOTO 2760 

UH 2750 G05UB 190:? "*■ "IGOTO 2650 
GH 2760 TRAP 40008; R0W=N8 : L1=N1 : G05UB 160 

:A$=TEMP5 
LY 2770 IF TEMP$<>"Y" AND TEMPS<>"N" AND 

TEMPSO"" THEN G05UB 190:G0T0 2760 
UM 2780 IF EDIT AND TEMP$="" THEN LOCATE 

C0L,R0W,A:TEMP$ = CHR$CA-128) :? "t-'-jTEMP 

$lA5=TEMP$!G0T0 2820 
MW 2790 IF TEMP$="" THEN A$="Y":? "*^*-";AS 
OJ 2800 IF TEMP$="N" THEN 1$ CN17, N17J =CHR 

$CA5CCI$tN17))+30) 
MD 2810 IF EDIT AND TEMP$="Y" AND A5CCI$t 

N17,Ni7))>30 THEN 1$ CN17, N173 =CHR$ CA5C 

tI$CN17))-30) 
CN 2820 R0W=N10:L1=N15:G05UB 160:IF TEMP$ 
„ -•••• AND EDIT THEN ? '■*■*■■■; 1$ CN18, 32) : GO 
f TO 2860 
EP 2830 IF TEMP$="" AND AS="Y" THEN TEMPS 

= "GET":? "t^*-";TEMPS 
ZL 2840 IF TEMP$="" AND AS="N" THEN TEMPS 

= "N0NE":? "t^^-'MEMPS 
YT 2850 lSCN18,N17+LENtTEMPS))=TEMPS 
IG 2860 IF lSCNi8,N20)="GET" OR lStN18,21 

)="NONE" THEN 3030 
kJ 2870 R0W=N12:L1=N13:G0SUB 160:IF TEMPS 
r =■■■■ AND EDIT AND lSt33,33)<>" " THEN ? 
i ■'*^«^"jl$t33,45) :G0T0 2980 

ftp 2888 IF TEMP$ = "" THEN TEMPS="N0NE" : P05 

ITION COL, ROW:? TEMPS 
KX 2890 IS(33,32+LENCTEMPS))=TEMPS 
tE 2900 IF IS(33,36J <>"N0NE" THEN 2920 
Ett 2910 POSITION C0L,R0W+N1:? " ■■!lS(96,9 

6)=" "IPOSITION C0L,N16:? BS (74) : IS C71 

,95)=B$C74) :GOTO 2968 
9Z 2928 R0W=N13:L1=N1:G05UB 160:IF EDIT A 

ND TEMPSr"" AND lSt96,96)<>" " THEN ? 
; ■■«-*-"jI$C96,96) :GOTO 2960 
PK 2930 IF TEMPS<>"R" AND TEMPS<>"I" AND 

TEMPSO"" THEN G05UB 190:G0T0 2900 
fP 2940 IF TEMP$="" THEN TEMPS = "I" : ? "*^*" 

; TEMPS 
m 2950 IS(96,96)=TEMPS 
ftp 2960 R0W=N15:L1=25:G05UB 160:IF TEMPS= 

"" AND EDIT AND ISC46,46)<>" " THEN ? 

"*-*-";lSt46,78) :GOTO 2998 
SL 2978 IF TEMP$="" THEN GOSUB 190! GOTO 2 
' 960 

01 2980 I$C46,45+LENCTEMPS))=TEMPS 
m 2990 IF I$t33,36)="N0NE" THEN 3030 
HT 3000 R0W=N16: GOSUB 160! IF TEMPS="" AND 

EDIT THEN ? "*■*•"; IS 171, 95) : GOTO 3038 
m 3818 IF TEMPS="" THEN ? "*■*■ "!GOTO 30 

30 
KZ 3020 I$t71,70+LEHCTEMPS>)=TEMP$ 
ZY 3030 IF EDIT AND IS (N18, 21) ="NONE" THE 

N FOR X=N12 TO N17:P0SITI0N N13,X!? BS 

(74) !NEXT X 
Ma 3040 IF EDIT AND IS (N17, N17) ="C" THEN 

FOR X=N8 TO N17!P0SITI0N N13,X!? BS(74 

) ! NEXT X 
PE 3058 POSITION N3,N20!? "everything ok? 

":GOSUB 200!IF A=ASC("Y") OR A=A5C("y" 

) THEN 3090 
FA 3068 IF EDIT AND (A=A5C("N") OR A=ASC( 

"n")) THEN 2340 



ZC 3070 IF A=A5C("N") OR A=ASC ("n") THEM 

2340 
PX 3880 GOTO 3838 
50 3898 IF EDIT THEN 3118 
CD 3188 ICNT=ICNT+Nl!lF ICNT>5e THEN G05U 

B 190!PO5ITION N2,N20!? "TOO MANY ITEM 

5!!":F0R X=N1 TO 200!NEXT X!GOTO 980 
3R 3118 IF EDIT AND IS (N18, 21) ="NONE" THE 

N IS(22)=BS 
20 3128 IF EDIT AND E THEN CDS (E*N3-N2, E» 

N3)=IS(N14,N16) 

00 3138 IF EDIT AND I THEN ITMS (H*N13-N12 
,I«Ni3)=lS(Nl,N13) 

ftp 3148 IF EDIT THEN OPEN »N1, N12, NO, FS : P 

OINT «N1, SECTOR, BYTEIGOTO 3160 
E5 3150 CDS(ICNT»N3-N2,ICNT»N3)=IS(N14,N1 

6) : ITMS (ICNT»N13-N12 , ICNT«N13) =IS (Nl, N 

13)!CL0SE »Nl!OPEN »N1,N9,N0,FS 
¥P 3160 ? ttNl;lS!CLOSE «Nl!GOTO 2340 
CG 3170 REM MXXKX SIMPLE COMMANDS KXXXX 
SG 3180 F$(LEN(FS)-N2)="C0M" 

ND 3190 GOSUB 260!G0SUB 318 

Gil 3208 POSITION 22, Nl!? " L-HIUU^-nLHirtW 

"IGOSUB 350 
fW 3210 IF A=ASC("N") OR A=A5C C"n") THEN 

3190 
BI 3220 GOSUB 130: GOTO 3198 
PI 3230 REM XXXX MOVEMENT COMMANDS XXXX 
XQ 3248 FS(LEN(F$)-N2)="M0y" 
BB 3250 M=Nl! GOSUB 260:G05 UB 310 
VN 3260 POSITION 21, Nl!? "CECECEDn 

EB":GOSUB 350 
ftU 3270 IF A=A5C("N") OR A=ASC("n") THEN 

3250 
ZI 3280 GOSUB 130:GOTO 3258 
YC 3290 REM XXXXX FATAL COMMANDS KXXXX 
OC 3380 FS(LEN(FS)-N2)="FAT" 

MJ 3310 GOSUB 260: GOSUB 310 

KK 3320 POSITION 23, Nl:? " [*:V*:l«<.i:,UMiFH " 

IGOSUB 350 
UQ 3330 IF A=ASC("N") OR A=ASC ("n") THEN 

3310 
UG 3340 GOSUB 130:G0T0 3310 
TO 3350 REM XKXXXX FINAL COMMANDS XXXXX 

01 3360 FS(LEN(FS)-N2)="FIH" 

KB 3378 GOSUB 260:GOSUB 310 

MU 3380 POSITION 23, Nl!? " IHiMW^.l'uUMirH " 

: GOSUB 350 
FU 3390 IF A=ASC("N") OR A=ASC("n") THEN 

3370 
BE 3400 GOSUB 130: GOTO 3370 
UU 3418 REM XXXXXM ITEM COMMANDS XKXXXX 

SY 3420 F$(LEN(FS)-N2)="CHG":EDIT=N0 

TZ 3 430 GOS UB 260 : POSITION 23, Nl:? "5133 

MV 344 POSITION N Q,N3:? 



ti.ilV.hh' 





"4 


IITEM NEEDED :| 


":? "I 




1 


ROON:|li| 




EH 


345 
" : ? 
346 


iO ? "J 


3 c 

GE 
3 D 


reate:| 




^ ll|^^H 


Ifl" 


JK 


,0 ? "i 


ELETE:! 




HSB":? 



T^:™ 



EK 3478 ? "+1 

":G05UB 250 
NG 3480 C0L=N13:R0W=N3:L1=N15:G0SUB 168:1 

F TEMPS="" THEN GOSUB 190:G0T0 3480 
CK 3498 IF LEN(TEMPS)<N15 THEN FOR X=LEN t 

TEMPS)+N1 TO N15:TEMPS(X)= NEXT X 

H8 3580 C=USR(ADR(SS$) ,ADR(TEMPS) ,ADR(CMS 

),LEN(CMS),N15) :IF NOT C THEN 3600 
MX 3510 CLOSE «Nl:OPEN ttNl, N12, NO, FS : TRAP 

4100 
HQ 3520 NOTE »N1, SECTOR, BYTE : INPUT «N1;CM 

DS:IF CMDS(N1,LEN(TEMPS)) OTEMPS THEN 

3520 
II 3530 EDIT=N1 
MO 3540 POSITION N13,N5!? CMDS (N16, 28) ! PO 

SITION N13,N6:? CMDS (122, 134) 
ZA 3550 POSITION N13, N8 : A=ASC (CMDS (29) ) : I 
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F fl=N8 THEM ? "flNY" : GOTO 3570 
QZ 3560 ? A 
DE 3570 POSITION Ni3,N10:? CMDS tOi, 93J : PO 

SITION N13,Nll:? CMD$t94,94J :P05ITI0N 

H13,N12!? CMD$t95,953 
FM 3580 POSITION N13,N14:? CMDS t96, 108J : P 

05ITI0N N13,N15:? CMDS C109, 121) : P05ITI 

OH N13,Hi7:? CMD5t30,54) 
DU 3590 POSITION N13,N18!? CMI>$ CSS, 79) : GO 

TO 3610 
HO 3600 CMD$(N1)=" " : CMD$ fl34) =" "iCMD^tN 

2) =CMD$ : CLOSE »N1 : CMD$ CNl, LEN CTEMP$) ) = 

TEMP$:GOT0 3630 
ST 3610 GOSUB 160 :IF TEMP$="" THEN ? "f^ir" 

;CMD$tNl.N15) :G0TO 3630 
PK 3620 CMDStNl,LENtTEMP$))=TEMP$ 
UO 3630 R0W=N5:L1=N13:G05UB 160:IF TEMP$= 

■"■ AND EDIT THEN ? "*-*^"J CMDS tN16, 28) : G 

OTO 3660 
OQ 3640 IF TEMPS="" THEN TEMP$="NONE" : POS 

ITION COL, ROW:? TEMP$ 
FH 3650 CMD$tN16,N15+LENCTEMP5))=TEMP$ 
QO 3660 IF CMD$CN16,N19)<>"N0NE" THEN 368 



DM 3670 CMD$C122,134)="N0NE " : PCS 

ITION COL,ROM+l:? CMD$ (122, 134) : GOTO 3 
710 

EW 3680 R0W=N6!G0SUB 168 : IF EDIT AND TEMP 
$ = '"• THEN ? "*^*^"JCMD$(122,134) :G0T0 37 

10 

PF 3690 IF TEMPS="" THEN TEMPS="NONE" : POS 

ITION COL, ROW:? TEMPS 
YO 3700 CMDS:fl22,121 + LENtTEMP$))=TEMP5 
JU 3710 R0W=N8:L1=N3: GOSUB 168: IF EDIT AN 

D TEMPS = "" and CMD$C29, 29) <>■■¥•■ THEN ? 
■■«■*■"; 5TR$CASC(CMD$ (29))) : GOTO 3770 
XG 3720 IF TEMP$="" THEN ? "^-^^ANY" : TEMP$= 

■■0" 
LK 3730 IF TEMPS="ANY" THEN ZS="0":GOTO 3 

759 
KC 3740 Z5=TEMP5 
XI 3750 TRAP 3710:IF UAL (ZSXNO OR UAL (ZS 

)>30 THEN GOSUB 190;G0T0 3710 
QT 3760 CMDS(29,29)=CHR$(UAL(Z$)) 
CI 3770 TRAP 4OOO0:ROW=N10:L1=N13:GOSUB 1 

60:IF TEMP$ = "" AND EDIT THEN ? "<-*^";CM 

D$C81,93) :GOTO 3800 
PE 3780 IF TEMP$="" THEN TEMPS="NONE" : POS 

ITION COL, ROW:? TEMP$ 
KM 3790 CMD$C81,80+LEN(TEMPS))rTEMP$ 
ZD 3800 IF CMD$C81,84)<>"N0NE" THEN 3820 
OC 3810 CMD$(94,94)= CMD$ (95, 95) =" " : P 

OSITION C0L,R0W+N1:? POSITION COL, 

ROW+2:? " '^GOTO 3900 
NR 3820 ROW=Nll;Ll=Ml:GOSUB 160:IF TEMPS< 

>■'" AND TEMP$<>"I" AND TEMPS<>"R" THEM 
GOSUB 190:G0T0 3820 
LY 3830 IF EDIT AND TEMP$=:"" AND CMD$(94, 

94)="R" THEN ? "<-«-R" : GOTO 3860 
UM 3840 IF TEMP$="" THEN TEMP$="I" : P05ITI 

ON COL, ROW:? TEMPS 
GA 3850 CMD$(94,94)=TEMPS:IF TEMPS="I" TH 

EN POSITION COL,ROW+Ml:? "Y" : CMD$ (95, 9 

5)="Y"iG0T0 3908 
NQ 3868 R0M=N12: GOSUB 168 : IF TEMP$<>"" AN 

D TEMP$<>"Y" AND TEMP$<>"N" THEN GOSUB 
198:G0T0 3868 
MX 3878 IF EDIT AND TEMP$="" AND CMD$(95, 

95)="N" THEM ? "♦• + N" : GOTO 3980 
YM 3880 IF TEMPS="— THEN TEMPS = "Y" : ? ■■*■*■" 

;TEMP$ 
ZF 3890 CMD$(95,95)=TEMP$ 
OM 3900 ROW=N14:L1=M13:GOSUB 160:IF TEMPS 

=■■■■ AND EDIT THEM ? "t^t^"; CMD$ (96, 108) : 

GOTO 3930 
ON 3910 IF TEMP$="" THEM TEMP$="MOME" : POS 

ITION COL, ROW:? TEMP$ 
KZ 3920 CMD$ (96, 9S+LEN (TEMPS) )=TEMPS 



MP 3930 IF CMDSC96,99)<>"N0NE" THEM 3958 
PK 3948 CMDS(ie9,121)="M0NE '^POS 

ITION COL,ROW+Nl:? "NONE ■" : GO 

TO 3988 
Ul 3958 R0W=M15:G0SUB 168:IF EDIT AND TEM 

PS = "" THEM ? ■■*^*^"; CMDS (189, 121) : GOTO 3 

988 
IM 3960 IF TEMPS="" THEM TEMPS="HOME" : ? " 

*^«^"JTEMPS 
FH 3978 CMDS (189, 188+LEM (TEMPS) )=TEMPS 
KT 3980 R0W=M17:L1=25:G0SUB 160:IF TEMPS= 

"" AND EDIT THEN ? "<■<■"; CMDS (30, 54) : GO 

TO 4010 
XG 3990 IF TEMPS='"" THEN GOSUB 190:GOTO 3 

980 
II 4088 CMDS (38, 29+LEN (TEMPS) )=TEMPS 
IB 4010 IF CMDS(N16,N19)z"N0NE" THEN POST 

TION COL,ROW+Nl:? B$ (74) : CMDS (55, 79) =B 

S(75) :G0T0 4050 
RX 4828 R0W=N18:G05UB 168 : IF TEMPS="— AND 
EDIT AND CMDS(55,56) <>'■ ■' THEN ? ■'<•*■ 

";CMDS(55,79) :GOTO 4058 
AQ 4030 IF TEMPSz"" THEN GOSUB 190:G0T0 4 

020 

KR 4040 CMDS (55, S4+LEN (TEMPS) )=TEMPS 

5U 4050 POSITION 23,N19:? "EUERYTHING OK' 

": GOSUB 200 
YX 4060 IF A=ASC("N"') OR A = ASC ("n") THEN 

3420 
AK 4055 IF AOASCC'Y") AMD A<>ASC{"y") TH 

EN 4050 
AS 4078 IF EDIT THEM CMS (C»M15-N14, C»N15) 

=CMDS(N1,N15) 
UG 4088 IF NOT EDIT THEN CMS (LEN (CMS) +N1 

)=CMD$(N1,N15) 
YJ 4898 GOSUB 130:GOTO 3420 
JO 4100 CLOSE »Nl:POSITION N4,N20:? "COMM 

AND U5ED!";G05UB 190:GOTO 3488 

HO 4110 REM XKKXXMKXKIC INTRO XKKXKKKKKXX 
GI 4120 FS (LEN (FS)- N2)="IMT": GOSUB 260:P0 

SITION 25, Nl:? "HinaaElE" : POKE 559,3 

4:P0KE 82, N2 
ZO 4130 TRAP 4160:0PEN «N1, N4, NO, FS : GET « 

N1,LH:GET ttNl,LL:L=LH*78+LL 
PY 4148 FOR X=N1 TO LH+N1:INPUT ttNl:TM$:T 

EMPS(X»78-77,X»78)=TMS:NEXT X: CLOSE »N 

1 
KK 4150 POSITION N2,N4:? TEMPS 
5G 4160 POSITION N2, N4 : C0L=N2 : R0W=N4 : Ll=4 

94:G0SUB 160 
lU 4178 IF TEMP$='"' THEN 988 
TG 4180 POSITION 23,N19:? "EUERYTHING OK' 

":G05UB 208 
WF 4190 IF A=ASC("N") OR A=ASC("n") THEM 

4128 
HO 4195 IF AOASCC'Y") AMD A<>ASC("y") TH 

EN 4188 
XF 4200 OPEN ttNl,N8,N0,FS:L=LEN(TEMPS) :LH 

=INT(L/78) :LL=L-LH*78:PUT »N1,LH:PUT tt 

N1,LL 
MA 4210 TEMPS(LH»78+LL+N1)=B$(LL+N1) 
LJ 4220 FOR X=N1 TO LH+Nl : ? ONI; TEMPS (X*7 

8-77,X»78) :NEXT X:CL0SE ttNl:GOTO 980 
HG 4230 REM XXXXXXXX TITLE PAGE XXXKXXX 
JE 4240 POKE 1788,M1:P0KE 106, PEEK (186) -M 

BB 4258 GRAPHICS M8:P0KE 559, N8 : DL=PEEK (5 

60) +256*PEEK (561) +N4 
GB 4268 POKE DL+NS, N7 : POKE DL+N8, M6 : POKE 

DL+N9,M6:P0KE DL+N10,M6 
XF 4278 POKE DL+24, 65 : POKE DL+25, PEEK (560 

):P0KE DL+26,PEEK(561) 
BF 4280 POKE 752,N1:P0KE 710, NO : PBSITION 

H5,N4:? "the wizard":POSlTION 27, N6:? 

"A TEXT" 
DJ 4290 POSITION 21, N7:? "ADVENTURE CREAT 

OR";POSITION N18,N13:? "By" 
MI 4300 POSITION N12,N1S:? "Clayton Walnu 
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M"!POKE 559,34 
OL 4310 REM KXXXKKKK INITIALIZE MKKKXKXK 
HY 4320 DIM N$C20),flSt8) ,F$C14) ,RM$C16J,R 

M1$CN16) ,EH$CN7) , IT$ tN13J , ITM$ 1650) , TE 

MP$C800) ,T$tN20) ,B$t95) ,TM$C78) , FN$ C8) 
PS 4330 DIM ZStN3) .RM5$(96),DIRSCN6) .I$fl 

20) .FI$tN8),CMD5ti34) ,PtN6,N2) ,SSSC100 

),RS(3O),CD5C15O),CH$tNi3),CM$tl50O) 
NU 4340 RESTORE 4378: FOR K=N1 TO N6:F0R Y 

=N1 TO N2:READ A : P CX, Y) =6 : NEXT Y:NEXT 

X 
ftS 4350 GOSUB 90 : RS tNi) = R$C30)=" ":RS 

(N2)=RS:CM$="GET DROP 

■ I J CCNT — N2 ■ LD— NO 

KM 4360 B$(Ni)=" ■"■:Bic99)= B$(H2)=BS 

UM 4370 DATA 29,5,29,15,36,10,22,10,24,5, 

34,15 

TK 4380 RM$=''EX3aLIX3LlIIIXZIZI3'' : RMi$=''EX3 
a3":EX$=" T^ •' I fS="D ! " 

€C 4390 DIRS="NSEWUD" 

VH 4400 RETRN=155:BACKSP=126:ESCAPE=27 

JU 4410 ICNT=NO 

QH 4420 REM ««** MOVE CHARACTER SET »»»» 

FN 4430 CHSET=(PEEKtl06)+Nl)K256:CS=CHSET 

/256 

UO 4440 DIM MVSt20):P0KE 203,0:P0KE 204, C 

SiPOKE 2O5,N0!P QKE 206,224 

MR 4450 Mu$="haHM¥ n:n:<!iJTTi:rjwj-.n »"!D=usRc 

ADRCMU$)) 
HI 4460 RESTORE 4500 
NS 4470 READ A:IF A=-l THEN 980 
«V 4480 FOR Z=0 TO 7 : READ JlPOKE CHSET+A* 

8+Z,J:NEKT Z 
m 4490 GOTO 4470 

SH 4500 DATA 11,85,85,85,85,85,85,85,85 
EU 4510 DATA -1 
|>y 4520 DATA 104,104,133,204,104,133,203, 

104,133,206,104,133,205,104,141,1,6,10 

4,141,0,6,104,104,133,207 
m 4530 DATA 162,0,142,2,6,142,3,6,134,21 

3,232,160,0,177,203,209,205,208,8,200, 

196,207,208,245,134 
J>L 4540 DATA 212,96,173,2,6,24,101,207,14 

1,2,6,144,3,238,3,6,173,2,6,205,0,6,20 

8,8,173 
KL 4550 DATA 3,6,205,1,6,240,13,165,205,2 

4,101,207,133,205,144,200,230,206,176, 
% 196,169,0,133,212,96 



Listing 2. 
BASIC listing. 

AE 10 REM KXXXKXKKMKKKXKXKKXKXKMKKXXKKM 

BL 20 REM * THE WIZARD « 

RX 30 REM » DATABASE PRINTER MODULE » 

EL 40 REM » by » 

NA 50 REM * Clayton HalnuM » 

AJ 60 REM XXXXXXXXXXXKKXXKXKXXXXXXXXXXX 
BT 70 DIM HDStl20),HD2$tl20),DT$C135) ,PLS 
C130) ,F$C15) ,FlSt8) ,D$C7) ,LINE$tl28) ,T 
XT$C100O) 
PS 80 D$r" NSEWUD":FS="D:":LINE$C1)="-":L 

INE$ (128) ="-" : LINE$ (2) =LINE$ : FL=0 
NY 90 OPEN tt2,4,0,"P:":OPEN «1, 4, O, "D : FIL 
ENAME.DAT-ilNPUT ttl;Fl$!CLOSE «1 : F$ t3) 
= F1$ 
KA 109 ? tt2;CHR$C15) ; "FILENAME: '■;F1$:? tt 

2:? «2 
ZH 110 ? «2;" KXXXXXX > ROOM DATA" 
RC 120 HD$C1,66)="RN DESCRIPTION 

N S E M U D R ITEM NEED 
ED 
CV 130 HD$t67)="I/R POS TEXT 

NEG TEXT" 
BK 140 ? »2;HD$:F$CLENtF$)+l)=".RMS":0PEN 
tti,4,0,F$:TRAP 230:? tt2;LINE$ 



Z4 150 INPUT «l;DTS:DIR=0:A=ASC(DT$tl)) :P 

L$Cl)=5TRStA) :IF A<10 THEN PLS C2) =" " 
VA 160 PL$t3)=" ":PL$C4)=DT$C2,25) :PLSC29 

3 z" " 
VH 170 FOR X=l TO 6:A=ASCCDT$t26+X)) :IF A 

>30 THEN A=A-30:DIR=X 
HN 180 PL$t27+X*f3)=STR$CA) :IF A<10 THEN P 

L${28+X»3)=" " 
QD 190 PL$t29 + X»3)= NEXT X:PLS(48)=" " 

:PL$C49)=D$CDIR+1,DIR+1) :PL$C50)=" 
UA 200 PLSt53)=DT$C33,45) :PL$t66)= PL 

St68)=DT$C96) 
JK 210 PLSt69)=" ":PLSt72)=DT$f46,70) :P 

L$(97)=" ":PLSC100)=DT$t71,95) 
TM 220 ? «2;PLS:? tt2; LINE$:G0T0 150 
ftH 230 CLOSE ttl:FSCLENCF$)-2)="ITM":0PEN 

«1,4,0,F$:TRAP 390 
RO 240 ? nZ\? tt2:? tt2;" KXXXXXX > item data 

■ I 

Zn 250 HDS="ITEM CODE RM COM 

MAND item NEEDED I/R GET 

POS TEXT NEG TEXT" 

XT 260 ? «2;HDS:? »2;LINES 

BH 270 INPUT «1: DT$ : PL$ tl) =DT$ CI, 13) : PLS t 
14)= PLSC17)=DT$tl4,16) :PL$C20)=" 

■ I 

TB 280 A=ASCtDT$tl7)) :0A=A:IF A=65 THEN P 

L$C23)="ANY":PL$t26)=" ":GOTO 330 
AG 290 IF A = 67 THEN PL$t23)="C " : GOTO 3 

80 
EB 300 IF A>30 THEN A=A-30 
CY 310 PLSt23)=STRStA) :IF A<10 THEN PL5 C2 

4)=" ":G0T0 330 
UA 320 PLSt25)=" " 
DN 330 PL$CZ7)=DT$C18,32) :PL$C42)= PL 

$t44)=DT$C33,45) 
RB 340 PL$C57)=" " ! PLS C60) =DTS C96, 96) : P 

L$t61)=" " 
TW 350 IF OA>30 AND 0A<65 THEN PLSt65)="N 

":G0T0 370 
G« 360 PLSC65)="Y" 
RD 370 PL$C66)=" " : PL$ f 69) =DT$ (46, 70) : P 

L5(94)= PL5(95)=DT$(71,95) 

XO 380 ? «2;PL$:? tt2;LINE$:G0T0 270 

QQ 390 CLOSE ttl : F$ (LEN (F$) -2) ="C0M" : OPEN 

ttl,4,0,FS 
IC 400 ? «2:? tt2:? tt2;" KXXXXXX > SIMPLE CO 

MMANDS" 
GN 410 HD$="C0MMAND ITEM NEEDED 

I/R RM POS TEXT 
NEG TEXT":? tt2;HD$:? «2;LINE$ 
EZ 420 GOSUB 430:G0T0 520 
LY 430 TRAP 510 
BF 440 INPUT ttl:DT$:PL$(l)=DT$(l,15) :PL$t 

16)=" ":PlI(19)=DTS(16,28) : PL5 (32) =" 

II 

OH 450 PLS(36)=DT5(81,81) :PL$(37)=" ": 

IF DT$(29,29)="r' THEN PL$ (41) ="ANY" : P 

L$(44)=" ":G0T0 480 
IT 460 PL$(41)=STR$(ASC(DT$(29))) :IF ASC( 

DTS(29))<10 THEN PL5(42)=" ":G0T0 4 

80 
PJ 470 PLS(43)=" 
KD 480 PLS(46)=DTS(30,54) :PL5(71)=" ":P 

L$(73)=DTS(55,79) 
MN 490 IF FL THEN PL5(98)=" ":PLS(101)= 

STR$(ASC(DT$(80))) 
MT 500 ? «2;PLS:? «2;LINES:G0T0 440 
ZD 510 RETURN 
LS 520 CLOSE »1 : FS (LEH (FS) -2) ="FAT" : OPEN 

ttl,4,0,F$ 
TJ 530 ? «2:? »2:? »2;" KXXXXXX > FATAL COM 

MANDS":? «2;HDS:? tt2; LINES : GOSUB 430 
HY 540 CLOSE ttl : F$ (LEN (F$) -2) ="FIN" : OPEN 

«1,4,0,FS 
VR 550 ? «2:? «2:? a2;" xxxxxxx > final com 

MANDS"!? tt2;HD$:? »2; LINES : GOSUB 430 
JY 560 HDS(LEH(HDS)+1)=" 
DES" 
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ITEM 1 
CREATE ITEM 



NEED 
R 



ITEM 2 



^ The Wizard continued 



ML 570 CLOSE »1 : FS tLEH CFSJ -2) ="MOg" : OPEN 

«1,4,8,FS 
BT 580 ? tt2:? U2'.7 tt2;" )<XKKK)CK > MOVEMENT 

COMMANDS":? tt2;HDS:? tt2; LINES : FL=1 : GOS 

UB 430 
BH 590 CLOSE ttl ! F$ (LEN CFS) -2) ="CHG" : OPEN 

ttl,4,0,F$ 
FM 600 HDS="COMMAND 

ED ITEM 2 NEEDED 

M R/I GET" 
&H 610 HDSC80J=" ITEM 1 DELETE 

DELETE" 
OT 626 HD2$="P05 TEXT 

NEG TEXT" 
5T 630 ? »2:? «2:? «2 ; "«*»***»> ITEM COMM 

ANDS":? tt2;HD$!? «2;HD2$:? tt2;LINE$:TR 

AP 720 
PW 640 INPUT ttl;DT$!PL$=DT$Cl,153 :PL$C16J 

-.1 ":PL$C19)=DT$tl6,28J : PL$ C32) =" 

":PLSC35J=DT$(122,134) : PLS £48) =" " 
F5 650 PLSt51)=DT5C81,93) :PLSC64)=" " 
JA 660 A=A5CCDT$(29)) :IF A=0 THEN PL$ C67) 

="ANY":G0T0 690 
KO 670 PLSt67)=STR$tA) :IF A<10 THEN PLStS 

8)=" "!GOTO 690 
&T 680 PLSC69)=" " 
TT 690 PLSC70)= PL$t73J=DTSl94) :PL5C 

74)=" ":IF DTSt95,95)=" " THEN DTSC 

95 95)="Y" 

700 PLSt78)=DT$C95) :PLSf79)=" ":PL$t 

82)rDT$C96,108) :PL$C95)=" ":PL5t98)= 

DT$(109,121) :? «2jPLS 
ZM 710 PLS=DT$(30,54) !PLSC26)=" ":PLS(2 

9)=DT$t55,79) :? tt2;PL$:? tt2;LINE$:G0T0 
640 
MM 720 CLOSE »1 : FS CLEN CFS) -2) ="INT" : OPEN 

ttl,4,0,FS:GET «1,A:GET ttl,A:TRAP 750 
VX 730 ? tt2:? «2:? tt2;" KK)(KXXll > INTRO TEH 

T":? «2;LlNES:c=i 

DC 740 INPUT ttl;DT$:TKTSCC»78-77)=DTS:C=C 

+l:G0T0 740 
UP 750 C=l:TRAP 770 
DB 760 ? tt2;TXTSCC«38-37,C»38) :C=C+l:^0T0 

760 
OK 770 END 
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NEW IBM compatible. $699 
or AUrl 104087 coior, 4879 



BUY 

SELL 

TRADE 



We pay ScashS for your used Atari and compalible products 
Buy used Atari & conipatible software, hardware, and books 
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2121 4th St. • Boulder, CO 80302 

Voice (303) 939-8144 M-F 2-1 1 pm MT Modem (303) 939-8174 24 hours 
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CIRCLE #116 ON ReADER SERVICE CARD 



ULTIMATE 
STORAGE 

Here's the perfect way to organize your ANALOG 
Computing library— sturdy, custom-made binders 
and files in deep blue leatherette with embossed 
silver lettering. Silver labels are included to index 
by volume and year One binder or a box-style file 
is all you'll need to accommodate 12 issues (1 year) 
of ANALOG Computing— all the games, pro- 
grams, tutorials and utilities that you want handy. 




The ANALOG Computing binder opens flat for 
easy reading and reference. They're economically 
priced at only $9.95 each— 3 binders for $27.95 
or 6 binders for $52.95. 

The ANALOG Computing file is attractive and 
compact, holding 12 issues for easy access. Files 
are available for only $7.95 each— 3 files for $21 .95 
or 6 files for $39.95. 

Add $1.00 per case/binder for postage and handling. 
Outside U.S., add $2.50 per case/binder — U.S. funds only. 



I enclose my check or money order in the amount 
of $ 

Send me: ANALOG Computing files 

ANALOG Computing binders. 



PLEASE PRINT. 



Name; _ 



Address: (No P.O. Boxes) 



City: _ 
State: 



. Zip Code: 



Send your order to: 

Jesse Jones Industries 

DEPT. ACOM, 499 East Erie Ave, Philadelpfiia, PA 19134 
Call Toll Free 1-800-972-5858 — 7 days, 24 hours 

Cliarge orders only, minimum $15.00 
^kTi ^^ residents, add 6% sales tax 

^^ Satisfaction guaranteed or money refunded. 
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REVIEWS 



Panak 
strikes! 



RevicAvs of the latest 
software. 



by Steve Panak 



If there's one thing I'll remember the 
most about the June 1987 Summer CES, 
it would have to be that it was one week- 
end that was full of surprises. Fickle 
weather, at one moment bathed us in 
blindingly bright sunlight — the next mo- 
ment, my car almost spun out of control 
in a six-lane highway, a victim of hydro- 
planing during a sudden, torrential down- 
pour. Surviving the storm, I was again 
surprised — this time pleasantly — by a 
floor full of new software, nestled in a 
dense nucleus around a healthy, airplane- 
capped Atari display. 

The two-story black plastic structure 
played home to a number of software de- 
velopers, in addition to the full and ex- 
panding line of Atari hardware. And a 
couple of software producers erected 
equally impressive displays, to hype their 
own new products. 

Infocom was showing their two new 
games, The Lurking Horror (which we'll 
get to shortly) and Stationfall, a sequel to 
an earlier Infocom game, whose title I'll 
reveal later, if you find yourself unable to 
guess it at this point. 



The Lurking Horror 

by Dave Lebling 

INFOCOM 

125 CambridgePark Drive 

Cambridge, lUIA 02140 

48K Disk $34.95 




In the years since 
they began the inter- 
active fiction biz, Info- 
com has introduced works 
in such diverse genres as 
adventure, mystery, science 
fiction, fantasy and comedy. 
But somehow, one of the most 
popular of all types of fiction 
got left out: the kind of story that 
you dare not read with the lights 
turned low, the stories populated 
with creatures and incidents of im- 
speakable terror. Well, much to our night- 
marish dismay, they have rectified that 
oversight. 

The Lurking Horror is one of the latest 
releases from Infocom, and the first to 
boldly barge into the world dominated by 
the dread poetic ravings of Edgar Allen 
Poe and the shudder-inducing tales of 
Stephen King. And, while its sales might 
not surpass those of either of these 
authors' works, it is destined to become 
yet another jewel in the Infocom crown. 
As the main character, if you're not care- 
ful, it could prove to be the nail in your 
coffin. 

A procrastinating student at good old 
George Underwood Edwards Institute of 



Technology [GUE Tech), you find your- 
self battling with a terminal, trying to 
pound out that twenty-page term paper 
that's suddenly due tomorrow. It would 
not have been quite so bad if the cursed 
computer hadn't corrupted all your 
files, filling them with unintelligible 
and disconcerting gobbledy-gook, 
hinting at spooks and spirits and 
horrors beyond belief. 
And that was be/ore you fell 
asleep (passed out?) and had that dream 
. . .about the pit and finding the stone, 
and the hoards of people chanting and 
crushing in on you , and then there's the 
horrible creature that shocked you back 
into consciousness. Of course, can you 
really call it a dream, since, when you 
awoke, the small stone was still in your 
hand? The strangely inscribed (clawed?) 
rock is the least of your troubles, though, 
as you muster up your courage and begin 
to explore the vast network of old, under- 
ground tunnels connecting the various 
buildings of GUE. You see, they've been 
closed for a reason. Rumor has it, a not- 
so-pleasant reason. 

So, as the wind blows up a winter bliz- 
zard , sealing you into the university's sci- 
ence complex, you find yourself drawn to 
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the old tunnels, confronting supernatural 
beings of all descriptions. Just don't for- 
get to carry your common sense with 
you — as well as that fire axe in the hall- 
way. 

The puzzles in this game are logical 
and well designed (I hoped I'd find a rea- 
son to use the forklift), the prose horrific 
and seasoned with dashes of patented In- 
focom humor For instance, I've been wait- 
ing for the kind of response I got when 
I used one of my favorite commands, "kill 
man with axe," on the maintenance man. 
The outcome: The /ire axe chops into his 
chest, where it sticks. Ed Ames would be 
proud. He looks doii-n at the axe with a 
certain perplexity, then puJJs it free, the 
wound making a sickening sucking sound. 

While this is a peculiar response, it's 
nowhere near as surprising as the feel of 
his icy hands as they strangle you to 
death. Fortunately, there's always a re- 
birth, thanks to the save and restore com- 
mands. The standard Infocom program is 
superb and features a large vocabulary, as 
well as allowing abbreviations of the most 
often used commands, such as X for ex- 
amine and I for inventory. 

In addition to assaulting a new genre, 
in a major shift in strategy, Infocom has 
also adopted a new packaging design. 
Continuing the evolution of their always- 
creative containers (remember the origi- 
nal Starcross plastic spacecraft?), they 
have refined their book-shaped box, elim- 
inating the page-filled cover and sub- 
stituting a removable inner box, which 
slides in opposite the spine. This narrow 
box contains a technical manual [that tells 
how to run the program, and is supple- 
mented with a machine-specific reference 
card), a student I.D. , and a creepy crea- 
ture. Also included is a freshman guide 
to the University, chock-full of background 
and hints. As always, you'll have to pay 
attention to all these details to get through 
the chilling, thrilling adventure. 

The Lurking Horror is a fine addition 
to your Infocom library, and a must for 
horror fans. While it probably won't scare 
you out of a night's sleep, its entertaining 
prose and challenging puzzles will pro- 
vide you with many sleepless hours. With 
The Lurking Horror, the masters at Info- 
com have laid waste to yet another genre. 

Night Mission Pinball 

by Bruce Artwick 

subLOGIC 

713 Edgebrook Drive 

Champaign, IL 61820 

32K Disk $29.95 



When I bought my first 8-bit Atari (an 
800, at the incredible cost of $1200), there 
was little software available, and even less 
that was any good. But one of the first 
games I owned and loved was a pinball 
simulation. Night Mission Pinball, from 
subLOGIC. It is only now, nearly three 
years later, that I've gotten around to 
bringing it to you. I only hope that you 
find it to be as enjoyable the second time 
around as I did the first. 

This classic simulation shows just what 
can be done with 32K of efficient and 
compact code. It was the first program to 
capture the look and feel of a pinball 
machine — from the banks of drop targets 
to the infuriating "tilt" light, this game 
is as close as you can get without leav- 
ing your keyboard. There have been 
others since, but even now, almost five 
years after its initial release, this program 
can still hold its own against them. 

Designed around the theme of a WWII 
bombing run, this game allows multiple- 
ball play of up to four silver spheres. The 
playfield is jam-packed with five bump- 
ers, seven drop targets, and enough roll- 
overs and ball-captures to keep it inter- 
esting and challenging for months to 
come. Even with a television as a moni- 
tor, the board is crystal clear. After care- 
ful adjustment of the color controls, you'll 
be able to distinctly make out the letters 
and score values associated with the var- 
ious rollovers and targets. Dual-channel 
sound is achieved by driving the internal 
speaker of the 800 along with the moni- 
tor's speaker, and the speed of play is oft- 
times incredible. 

You can control play with joysticks or 
the keyboard. The SHIFT and START keys 
control the left and right flippers, respec- 
tively, while hitting any key on the left 
half of the board simulates bumping the 
machine to the left, the right keys bump- 
ing the board to the right. 

Although I prefer the keyboard, note 
that the position of the START key along 
the top of the XE makes play on this new 
model rather awkward. I usually find the 
use of two sticks (one to control each flip- 
per) likewise clumsy, since slapping the 
keyboard to jostle the machine typically 
causes me to fumble with one of the 
sticks. Other active keys read and write 
to a high-score disk, and freeze play. 

The program also supports a large de- 
gree of customization. Typing FIX while 
in the "game over" mode accesses the fix 
menu, which allows adjustment of such 
parameters as ball speed, bounce and ran- 
domness of motion (otherwise, each game 



might be the same, at least mitil you hit 
the ball). As in real pinball machines, you 
have control over the incline, the balls per 
game, tilt sensitivity and the free game 
score. Other settings make the game more 
difficult by limiting the amount of bonus 
and the ease of activating multiball play. 
The impulses given the ball by the vari- 
ous traps and bumpers can be preset, as 
can flipper power. 

And, to make sure your new design is 
playable, you can test it via a self-play 
mode (a good idea, since some settings 
can crash the game or freeze play, as 
when a ball sticks in a kickhole which 
lacks the power to dislodge it). Using all 
these options, it's possible to simulate the 
game as it exists on this planet — or on any 
other wliich might lack gravity or friction. 
You can save up to 110 different modes (17 
if you should be so unfortunate as to have 
only 32K of memory) for future use. How- 
ever, a drawback of the game is the fact 
that, unlike some of its competitors, this 
program will not allow ^fou to design a 
new playfield. 

Night Mission boasts a new packaging 
scheme which is quite an improvement 
over the plain zip-lock bag my original 
copy arrived in. Inside the bulky but 
colorful box is an equally bulky and color- 
ful manual. Unwilling to be satisfied by 
good looks alone, the 24-page booklet 
goes on to cover such diverse topics as 
customization, program statistics and pin- 
ball jargon. Its table of contents bounces 
you rapidly to the correct page, and a sep- 
arate reference card keeps important com- 
mands, as well as the scores assigned to 
the various drop targets, lights and rol- 
lovers, in easy view. Finally, a label is 
provided to identify yoiu- high-score disk. 

Overall, while this program is nearly 
five years old, it does not look dated at 
all. Although it lacks some of the features 
of its competitors, it is an amazingly fast 
and challenging pinball simulation, and 
is an exemplary example of efficient as- 
sembly language coding. It is a classic 
that's destined to endure. 

As for next month, look for Stationfall, 
the sequel to Infocom's Planetfall men- 
tioned a number of paragraphs ago. We'll 
also take a look at SSI's Rebel Charge at 
Chickamauga, and perhaps there'll be a 
couple more surprises. Until then, get 
down to yom- favorite dealer and take a 
look at the new Atari software and hard- 
wai-e filling up the shelves. And gel them 
off the shelves and into good homes, 
where they belong. H 
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Why can't there be a great database file manager for the ST?" 



We weren't looking for a small improvement over 
the existing database file managers for the Atari ST. 
We were shooting for a major new system that 
pushed the ST's powerful features to the limit. No 
other database for the ST has The Informer's im- 
pressive graphics ability or its ease- of- use. 

Other databases restrict your Atari ST's incredible 
graphics capabilities. With The Informer you can 
easily use text and graphics in your databases. Point- 
and- click to use pictures, graphs, and drawings from 
Degas™ and Neochrome™. 

No programming is required to use The Informer. 
Easy point-and- click functions are used to create and 



manipulate any of up to four databases simul- 
taneously. Information is stored in a database like 
a spreadsheet. 

Customizing reports is easy. Just point-and- click 
the mouse. Reports and graphics may be printed as 
they appear on the screen. 

The Informer is compatible with data from 
Habaview™, Regent Base™, and dbMan™. 

We even offer a Trial Pak including a demonstration 
disk with examples available for only $19.95. The cost 
is good towards a purchase of The Informer. 

The Informer, a graphic database of unprecedented 
pozver ^ 




scelJaneous 



Regent 



SOFTWARE 
7131 Owensmouth Avenue, Suite 45A 
Canoga Park, CA 91303 (818) 882-2^C^ 

CIRCLE #117 ON READER SERVICE CARD 
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VIDEO GAME DIGEST 



^fe 




by Joyce Worley, 

Amie Katz and Bill Kunkel 



The experts said it would never happen. The experts were 
wrong. Video games are back, and they're better-looking, more 
intriguing and cheaper than ever. 

Some basic information. 

Video game systems coimect to TV sets through adaptors included with the con- 
soles. And, whether you use a black-and-white or a color TV, video games will not damage 
regular picture tubes in any way. (Projection TV owners should check their manuals before 
using video games.) 

All of the systems use game cartridges, but different companies' games are not interchangeable. Car- 
tridges are designed specifically for the system used. 

In 1983-1984, thousands of game cartridges were sold at deep discount. They literally swamped the market, de- 
stroying retailers' profits, as well as their faith in the future of the games. These older games are long vanished, al- 
though elderly titles for older machines like the Atari 2600 sometimes turn up in bargain displays. 

Games pubhshed for the first time in the last year are generating most of the excitement. Better game design and programming 
techniques, coupled with improved resolution and increased memory, deliver the best video games ever seen. Cartridges with 
up to 2 megabytes of game information are now available, and games with even more memory are on the horizon. Compare the 
"classics" like Space Invaders, a 2K memory product, and it's easy to see the potential inherent in a 2000K program. 
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Yet memory comparisons are mislead- 
ing. The large memory of most of the cur- 
rent systems frees programmers from their 
former need to crunch every bit of infor- 
mation to squeeze it into the very smallest 
space. Now they can create designs which 
concede less to expediency. The coin-op 
translations look, sound and play much 
like the originals. 
The Nintendo Entertainment System. 

The Nintendo Entertainment System 
Control Deck package contains the NES 
game console, two hand-held rectangular 
pushbutton controllers, and a Super Mario 
Bros, game pack, for a $99 suggested list 
price. 

The NES Deluxe Set adds R.O.B., the 
"Robotic Operating Buddy," a light gun 
and two game packs that work with these 
peripheral devices, for $179.95 list. 

The Nintendo system features arcade- 
quality graphics of up to fifty-two colors, 
and NES game cartridges have up to 2 
megabytes of information. Every game 
has audio backgrounds that compliment 
the visual splendors, including music and 
sound effects. 

The Robotic Operating Buddy, a wire- 
less ten-inch robot with photosensors, 
reads light signals from the TV to trigger 
movements. His best trick was to help 
Nintendo market this new gaming con- 
sole, and R.O.B. deserves a place in the 
Video Game Hall of Fame for firing the 
enthusiasm of a new generation of video 
gamers. This hard-working little dude 
single-clawedly scratched out a place for 
video games in the computer age, by at- 
tracting the attention of kids. However, 
despite R.O.B.'s charms, veteran video 
gamers may want to pass on this acces- 
sory, since there are currently only two 
game packs that use the robot. 

On the other hand, the light gun is a 
must-have item for NES-ers. Named the 
Zapper, it has light sensors which inter- 
act with flashes from the screen, and it's 
accurate within a fraction of an inch — 
even when fired from across the room. 
The four target-shooting gcimes which use 
the Zapper are high-quality marksman- 
ship tests, and the Zapper is definitely 
recommended to anyone who enjoys this 
sport. 

There are currently about three dozen 
games available for the NES from Ninten- 
do. An additional thirty-five are scheduled 
for release this year from thirteen third- 
party software developers, so there's plen- 
ty of variety. The catalog of game packs 
includes, in addition to the robotic and 
target gmi titles, three games that allow 



the user to customize the entertainment, 
eight sports contests, a half-dozen action 
games, five arcade classics, an education- 
al game, and two adventures. More titles 
will be forthcoming throughout the next 
months. 

The Nintendo system offers top quality 
visuals, audio and game play. The console 
itself is compact, sleek and attractive, and 
it appears to be very durable. The num- 
ber of titles and peripherals already avail- 
able — and on the drawing board — give 
the NES a bright futm-e, which promises 
owners of the system many, many hours 
of prime entertainment. 

Tlie Sega Master System. 

The Sega Master System, recently ac- 
quired by Tonka Toys, comes with the 
game unit, two Control Pads, Light Phas- 
er and a two-game cartridge, for its retail 
price of $150. The console uses Sega card 
and cartridge software. 

The Sega system can present quite com- 
plex games. It employs superior high- 
resolution graphics, with up to sixty-four 
colors. The system is especially suitable 
for arcade-style games with high-speed 
animation. The video gun packed with 
the system is an excellent target-shooting 
pistol that every video marksman will en- 
joy using to blast away the on-screen tar- 
gets. 

The SMS accepts two kinds of games. 
The company introduced a new software 
medium, the Sega Card, in 1986. This 
slim credit-card sized game pack looks 
much like the guts of an Atari 2600 gam- 
ing cartridge when you crack off the plas- 
tic casing. But there's a big difference, 
since these elegant cards can hold up to 
256K of memory. 

The 256K Sega Card games are impres- 
sive, but the real top of the line Sega en- 
tertainments are packed on either the 
Sega Mega Cartridges (1048K of memory) 
or the company's Two Mega Cartridges 
(2096K). 

Sega Cards retail for about $25, and 
One Mega Cartridge games are $30. Two 
Mega Cartridges will retail for $40. There 
are currently about thirty games availa- 
ble, with more set for release before this 
holiday season. 

In the past, Sega opted not to invite 
third-party softwai'e manufacturers to de- 
sign games for the SMS. Instead, the com- 
pany has licensed games from other soft- 
ware firms, to be produced under Sega's 
own bamier. The recent change in owner- 
ship may make management reconsider 
this policy. Tonka's strategies have not yet 
been announced. 



The Sega System incorporates top qual- 
ity graphics, sound and action. Future pe- 
ripherals — such as 3-D games and glasses 
— will keep the fun at a fever pitch for 
Sega owners. 

Atari 7800. 

Atari first unveiled the 7800 Pro Sys- 
tem in 1984. The big innovation was its 
new "Maria" graphics chip, which total- 
ly replaced the player-missile graphics 
used on all previous Atari consoles. The 
new system made it possible to move any 
number of objects, of any size, in any com- 
bination of directions, simultaneously. 

Unfortunately, the timing was disas- 
trous. The video game slump kept this 
top-drawer system from getting its hour 
in the sun. Well, maybe it will now, as it 
represents an outstanding bargain for the 
arcade-style action game lover. Atari re- 
introduced the 7800 in 1986 at an attrac- 
tive price, helping refire the enthusiasm 
of pay-for-play video gamers. 

The Atari 7800 Video Game System 
comes with the console, two Proline con- 
trollers, and a Pole Position II cartridge, 
for $79.95. Game cartridges cost about 
$20. The 7800 also can play cartridges 
designed for the Atari 2600 Video Game 
System. 

Atari plans to produce translations of 
popular arcade games for the 7800. and 
to acquire top computer action titles that 
were previously unavailable to the video 
game audience because of their high 
memory requirements. As with the other 
video game machines, new software tech- 
niques make upper memory designs pos- 
sible for the Atari 7800. There should be 
almost twenty titles available this Christ- 
mas, and more 7800 games are planned 
for spring release. In addition, hundreds 
of 2600 games can be plugged into the 
7800, with no extra attachments. 



Ask the Game Doctor 

Got a question about video game 
hardware or software? Video Game 
Digest has the man with all the an- 
swers, the Game Doctor. Yes, the 
celebrated software sawbones who 
once hung his shingle in Electronic 
Games is opening his office in 
these pages, beginning next 
month. 

So, if you have a question for the 
megabyte medico, just send it to: 
Game Doctor, Video Game Digest, 
c/o ANALOG Computing, P.O. Box 
23, Worcester, MA 01603. 
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The INTV III. 

In January of 1983, Mattel Corporation 
sneak-previewed the Intellivision III for a 
few journalists and software mavens. The 
new machine ran smack into the plum- 
meting video game market. Mattel sub- 
sequently abandoned the business before 
it actually put the Intellivision III on the 
retail market. The Intellivision III, once 
billed as the ultimate video game, was in- 
definitely delayed. 

This machine proved to be just too 
good to die so young. In 1987, the long- 
awaited Intellivision III is finally a reali- 
ty. The INTV Corporation is marketing ti- 
tles from the original Intellivision soft- 
ware catalog, but — better still — is also ac- 
tively publishing new titles. 

The INTV System III Master Compo- 
nent lists for $69.99. It comes with the 
gaming console and two nondetachable 
controllers. Cartridge prices range from 
$10 to $20. 

The INTV III has a built-in voice syn- 



thesizer, and about 12K of ROM and lOK 
of RAM memory. A larger range of avail- 
able colors, plus the ability to manipulate 
sixty-four objects on-screen simultaneous- 
ly, open up the options for Intellivision 
game designers. 

The newer releases reflect this, with 
more complicated entertainments against 
strikingly handsome backgrounds, instead 
of against the solid black backgrounds 
seen in most low-memory video game 
systems. 

The INTV III is not a state-of-the-art 
machine, but it does offer decent video 
game graphics, a tolerable sound system 
and a wide selection of cartridges — es- 
pecially sports titles — at an economical 
price. 

The Atari 2600. 

The world's best-selling video game de- 
vice, the Atari 2600, is the machine on 
which most home electro-gamers cut their 
teeth. Though newer game systems have 
stolen its thmider, the 2600 is still a great 



entertainment bargain, and the only one 
of the original video game machines to 
survive into this new age of gaming. 

The company retooled the unit to give 
it a more modern, sleek and handsome 
appearance, but it's still the same great en- 
tertainer. 

It comes with the console and one 
joystick controller, for $50. For head-to- 
head play, a second joystick sells separate- 
ly for $9.95. 

There were thousands of games de- 
signed for the 2600 in the first video game 
era, and the old titles still have a lot of 
life. In addition. Atari Corp. is now releas- 
ing brand new 2600 game designs, as are 
third-party developers like Activision and 
Epyx. The new game cartridges cost 
about $10. 

While the Atari 2600 lacks the sophisti- 
cated sound and graphics capabilities of 
the upper memory machines, it is still a 
family pleaser, priced appreciably lower 
than other large kid's toys. H 



Presenting . . . 
Video Game Digest 

Video games are back — and ANALOG Comput- 
ing has them. Beginning with this issue. Video 
Game Digest will present reviews, news and in- 
sights into the exciting, fast-changing world of car- 
tridge games. 

On hand to produce this magazine-within-a- 
magazine is the well-known team of Arnie Katz, 
Bill Kunkel and Joyce Worley. They will vi'rite and 
edit each issue of Video Game Digest, under the 
direction of ANALOG Publishers Lee H. Pappas 
and Michael J. DesChenes. 

Katz, Kunkel and Worley were pioneers in video 
game journalism and created the first magazine ex- 
clusively devoted to the subject. Electronic Games. 
Their work appears regularly in ST-Log and other 
top computer and general interest publications. 

The fate of Video Game Digest is in your hands. 
If you want a monthly video game magazine, per- 
haps even a bigger and better one, you've got to 
write and tell us so. We'd also like to hear from 
readers on any aspect of video gaming. Tell us what 
you'd like to see in the Digest. Just send your com- 
ments and suggestions to: Video Game Digest, 
c/o ANALOG Computing, P.O. Box 23, Worcester, 
MA 01603. 



HOTLINE: 

Video Game News Update 

Atari's new XE Game System includes a 64K con- 
sole, attachable keyboard, video gim and joystick, 
plus three game cartridges, for about $150. Games 
included are Flight Simulator II (from subLOGIC), 
Missile Command (Atari), and Blast 'Em (a new 
shooting game specifically developed for the XE 
system). Atari plans to convert to cartridge disk 
games written for their XE and XL computers. 

Additional peripherals soon to be available from 
Nintendo can make gameplay even more exciting. 
The NES Advantage joystick is a full-size, arcade- 
style joystick with a weighted base. The stick fea- 
tures two adjusters, so the rapid-fire action of each 
button can be set individually, and a slow-motion 
feature which slows the game action on some Nin- 
tendo titles. The stick retails for $49.99. The com- 
pany also plans two different styles of 3-D glasses, 
with 3-D game titles, scheduled for release this 
winter. 

Speaking of controllers, here's some good news 
for Intellivision owners: the Intellivision Attach- 
able Joysticks sell for $12.95 a pair, and go a long 
way toward ending the INTV controller blues. They 
snap onto the control disk and will make gameplay 
easier. 
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Slalom 

NINTENDO 

4820 150th Ave., N.E. 

P.O. Box 957 

Redmond, WA 98052 

Nintendo Entertainment System 

$29.95 

by Bill Kunkel 

Although skiing simulations have been 
around for years, very few possess the 
sheer visceral power of Slalom. This im- 
pact results from the game's modified 
first-person perspective. There's a delight- 
ful, cartoon-style user surrogate who 
stands in the immediate foreground, and 
can be moved left or right, made to tuck 
(speed up) or snowplow (slow down) 
through the control pad. The action but- 
tons inaugurate jumps and stunts. 

Once the skier starts down the moun- 
tain, the game kicks into overdrive. Sla- 
lom impressively coinmmiicates the sheer 
exhilaration and the kinetic thrill of high- 
speed movement, as well as the abrupt- 
ness of collisions. Obstacles like drone 
skiers, trees, snowmen and sledders pep- 
per the mountainside, in addition to the 
flags which must be navigated and the 
ubiquitous moguls, rocky outcroppings 
which jut up through the snow to serve 
as launch pads for skiers. Hitting a mo- 
gul launches the skier skyward, and, if the 
player hits the action button while his ski- 
er is in the air, it's possible to do some hot- 
dogging and stunt skiing. 

The graphics are simple enough to al- 
low the program to handle high-speed 
movement, while sufficiently stylish to 
satisfy the user's aesthetic requirements. 
The play system is appropriately straight- 
forward and easy to learn, though the left 
to right movement is occasionally slug- 
gish. 

While not a groundbreaker, Slalom is 
a solid entry in the Nintendo line, one to 
please most action game fans. H 

Super Mario Bros. 

NINTENDO 

4820 150th Ave., N.E. 

P.O. Box 957 

Redmond, WA 98052 

Nintendo Entertainment System 

$29.95 

by Bill Kunkel 

Super Mario Bros, is the game packed 
with the Nintendo Entertainment System, 
and it's an excellent choice on the man- 



ufacturer's part. Super Mario Bros, stars 
one of Nintendo's most enduring charac- 
ters, Mario, the parody of an organ grinder 
who became famous during his quest to 
recapture the escape-happy Donkey Kong. 
(I have no idea why they call it "Mario 
Bros.," since only Mario himself appears, 
albeit in a variety of forms: invincible, su- 
per, fireball-throwing, etc.) 

Here's the story: the mushroom people 
have been invaded by the Koopa, a tribe 
of black-magic-practicing turtles (that's 
the worst kind], who transformed the 
peace-loving fungus folk into bricks, 
stones and "field horsehair plants" (sure- 
ly a fate worse than death). Who can save 
them? Why Princess Toadstool, of course! 
Alas, she is a prisoner of the Koopa King, 
and it's up to the player, as Mario, to res- 
cue her. 

Mario can be moved along the easterly- 
scrolling playfields with the directional 
control pad. The A button lets Mario 
jump and swim, and the B button permits 
accelerated speed and fireball-throwing 
(when Mario has picked up a "fire flow- 
er"). The plucky paisan must travel over 
a series of scenarios, above and below 
ground, searching for the castles at each 
scenario's end, in hopes of locating the 
Princess. 

The playfields contain not only the Koo- 
pas, but the dastardly Little Goombas 
(mushrooms who betrayed their own peo- 
ple to the Koopa, if you can imagine such 
a thing), Koopa Troopas (and Paratroo- 
pas), Buzzy Beetles (invulnerable to fire- 
balls], the Hammer Brothers, Lakitu and 
his pet Spiny, Pirana Plants, Bowser, the 
Koopa King, and more — and one touch 
from any of them is deadly. But, if Mario 
can jump in the air and land on top of 
them, they're squashable; in fact, once a 
Koopa has been KO'd, its shell can be sent 
flying in either direction, in order to 
whomp any approaching nasties. 

Meanwhile, the screens are just bris- 
tling with goodies, most of which have 
been placed within bricks inscribed with 
question marks. If Mario bounds and 
punches these bricks from underneath, 
their treasm'es come popping out the top. 
Treasures include not only gold coins (100 
coins buy an extra life], but magic mush- 
rooms (which bestow extra life and cause 
Mario to become Super Mario), fire flow- 
ers and stars (which make Mario invin- 
cible for several seconds). 

Super Mario Bros, is a lot of fmr, but 
the game's inability to scroll to the left is 
a real problem. Once an object has been 
passed by to its right, there's no return- 



ing. Still, it does have save, pause ano 
continue features. 

Like the best of the Nintendo games, 
there are plenty of different creatures to 
fight, an assortment of prizes and bonus 
features, and lots and lots of pretty scen- 
ery. Super Mario Bros, is a super playa- 
ble showcase for the Nintendo Entertain- 
ment System. PI 

Centipede 

and 

Robotron 2084 

ATARI CORP. 

1196 Borregas Ave. 

Sunnyvale, CA 94086 

(408) 745-2000 

Atari 7800 

$19.95 

by Arnie Katz 

Atari created its 7800 with one prima- 
ry aim: to present home versions of popu- 
lar coin-op contests. Like Pole Position II, 
which comes with the console, both Cen- 
tipede and Robotron 2084 are superb 
home versions of games which have raked 
in millions upon millions of quarters in 
family amusement centers. Though no 
conventional television set can rival a 
coin-op monitor in visual resolution or au- 
dio fidelity, these cartridges are as close 
to the arcade originals as possible. 

Centipede remains a brilliant variation 
on the "invasion game" play mechanic pi- 
oneered by Space Invaders. It banishes the 
aliens in favor of wave after wave of wrig- 
gling centipedes, spiders, and other simi- 
lar creatures. And, instead of the trusty 
horizontal cannon, there's a bug sprayer 
which can move vertically within a limit- 
ed area, as well as side-to-side. 

The garden theme makes Centipede a 
perennial favorite of female video gamers. 
Evidently, women have less compmiction 
about killing slimy bugs than about an- 
nihilating aliens from outer space. 

Centipedes have twelve distinct attack 
modes. In the first wave, the insect has 
eleven body segments and an attached 
head . Each wave subtracts a segment and 
substitutes a detached head . The critters 
on the screen also move faster and faster 
as the game progresses, to insure that the 
challenge keeps pace with the player's 
growing mastery of the situation. A 
choice of four skill levels also promotes 
replayability. 

The graphics and audio of this one- or 
two-player contest, as mentioned, are ter- 
rific. The symphony of sounds and con- 
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stantly shifting colors keep eyes riveted 
to the screen. 

VViUiams Electronics introduced Robo- 
tron 2084 as a sequel to Defender and 
Stargate. The relationship is purely the- 
matic, since this nonstop blastathon is 
quite different from the two earlier titles, 
both of which were duo-directional scroll- 
ing shoot-outs. 

When humanity created the robotron 
robots, no one had any idea of the threal 
they would eventually pose. The gamer, 
as the last defender of his species, zaps 
the enemy automotons and tries to rescue 
as many human clones as possible. Clear- 
ing a playfield of robotrons takes the com- 
puter user to the next playfield. 

One of the things arcaders liked best 
about Robotron 2084 was its two-stick 
control system. This allows the player to 
move in one direction while laying down 
a stream of withering fire in another. In 
the coin-op, it comes in mighty handy 
when the player wants to keep menaces 
like Indestructible Hulks, Sinister Spher- 
oids, Enforcers, and the rest of the robot- 
ic rogue's gallery at arm's length while 
blowing them to smithereens with the 
anti-robot laser gun. 

The control scheme employed in the 
7800 edition is a reasonable compromise. 
The player moves the fighter aromid the 
nonscrolling playfield with the stick. 
Pressing the action button causes the la- 
ser to fire in the direction of movement. 
Purists may well yearn for the double- 
joystick configuration, but this alternative 
works fine, although it's not quite as easy 
to escape when the robotron mechanoids 
close in for the kill. 

Robotron 2084 provides unlimited 
racks of truly frenetic action to delight ev- 
ery joystick jockey. The strategic challenge 
is admittedly minimal, but few video 
games can rival this classic shoot-'em-up 
for sheer excitement. H 

The Legend of Zelda 

NINTENDO 

4820 150th Ave., N.E. 

P.O. Box 957 

Redmond, WA 98052 

Nintendo Entertainment System 

$39.95 

by Bill Kunkel 

Ganon the usurper. Prince of Darkness 
(and all-aromid impleasant guy) now rules 
in the land of Hyrule. The Princess Zel- 
da, last keeper of the "Triforce," the gold- 
en triangles of mystical power, has been 
captured and imprisoned, but her faith- 



ful maid Impa escaped Canon's villainous 
clutches and fled, seeking a paladin to 
take up Zelda's cause. 

The player in this action-strategy extra- 
vaganza is cast as Link, the brave young 
lad who agrees to help overthrow Canon, 
rescue Zelda and reunite the eight trian- 
gles of the Triforce — which the Princess 
dispersed and hid in different locations, 
rather than see them fall into Canon's 
hands. 

The Legend of Zelda is a delightful, 
omni-directional scrolling adventure, in 
which the player moves over a wide vari- 
ety of terrain and battles a collection of 
some of the weirdest adversaries this side 
of the fifth dimension: spidery Tektites, 
slimey Octoroks. bm-rowing Leevers, bull- 
dog-like Molblins, stone Armoses. spec- 
tral Chinis, and more — and that's just the 
denizens of the Overwork!! Mead into the 
undergroimd dungeons and meet an even 
stranger assortment of creepsters: Dark- 
nuts, Lanmolas, Wall Masters and worse. 
Work your way through this bestiary, and 
the old Prince of Darkness himself, Ga- 
non, is waiting on you. 

Not all the denizens of this land are 
hostile, however; Link also encounters 
wise men. little old ladies, merchants, and 
even fairies held prisoner by monsters 
(vanquish the beastie, and the grateful 
fairy will extend your lifespan). Still, the 
vast majority of the residents respond ex- 
clusively to a sword in the mush. 

Its wide range of treasm-es and weapon- 
ry provides the meat of this game. There 
are three kinds of swords, two kinds of 
shields, precious stones, keys (magical 
and mundane), ladders, rafts (for travel 
over water), maps, compasses, enchant- 
ed rings, magic clocks and power brace- 
lets. These are accessed through the A 
action button, while the B button controls 
a series of special weapons and gadgets 
which can be piu'chased from cave-dwell- 
ing merchants. These Include boomer- 
angs, bombs, bows and two kinds of ar- 
rows, two types of candles, a magic whis- 
tle, "enemy bait," water of life and a magic 
wand. 

Then, of course, there are those eight 
pieces of the Triforce which must be col- 
lected and assembled. One piece awaits 
in each of the eight labyrinths; collect the 
set. blow the magic whistle and summon 
a whirlwind which warps you to the ninth 
labyrinth. 

The graphics are delightful, making 
even tiny on-screen objects easily discern- 
ible. The perspective is slightly modified 
overhead, with physical landmarks fur- 



ther distinguished by the skillful use of 
color. Special sound effects, ranging from 
soft tinkles to bomb blasts, are slickly 
executed. 

Nintendo is, obviously, quite proud of 
The Legend of Zelda. Television commer- 
cials devoted entirely to this game have 
been running heavily in the New York 
area — the first single-subject video game 
TV ad in years. The game pack is beauti- 
fully documented (including lots of hints 
and strategy) and comes encased in a 
golden shell, further indicating its singu- 
lar quality. 

The game is a high-water mark in terms 
of video game design and programming. 
Sophisticated plot and gameplay combine 
with classic video game elements, to al- 
low the user to learn while he plays — and 
play while he learns. 

Zelda's outstanding. It leaves one hop- 
ing ibr more, more, more of the same. H 



The Northeast 

ATARI 
Computer Fair 

TRAVEL 
SPECIAL 

ANALOG Publishing is pleased to of- 
fer anyone visiting the Northeast Atari 
Computer Fair special savings on air 
travel to Boston or Worcester 

TRAVEL DATES 

October 6-13 
Continental or Eastern 

DISCOUNTS 

Continental: 

5% off the lowest excursion 

fare available 
30% off the standard coach fare 
Eastern: 
5% off excursion fares 
(MaxSaver excluded) 
50% off coach fares 

TO RESERVE: 

Call Fresh Pond Travel at their toll-free 
number: 800-645-0001. Or if you sub- 
scribe to Delphi, place your reserva- 
tion through the Airlinesn- section in 
the TRAVEL Reservations Menu and 
save an additional 2% off the best deal 
on any carrier 
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Choplifter 



SEGA c/o TONKA CORP. 
6000 Clearwater Drive 
Minnetonka, MN 55343 
(800) 328-3628 
Sega Master System 
$30.00 



by Arnie Katz 



Free the hostages! An unnamed coun- 
try has seized sixty-four Americans and 
imprisoned them in heavily guarded bar- 
racks and caverns. Only a skilled helicop- 
ter pilot, daring the defenses by flying in 
low, can land near the detention centers, 
load as many hostages as possible into the 
chopper, and fly them to a safe landing 
on American soil. 

The direction disk moves the Hawk 
helicopter in any of eight directions. The 
right-hand control button changes the 
direction the craft is facing. A quick press 
causes the whirlybird to face front, while 
a long push turns it from left to right, or 
vice versa. When the screen shows the 
chopper's side view, the left-hand button 
fires projectiles. The same button drops 
bombs when the helicopter faces front. 

Those evil hostage-takers are well arm- 
ed, too. The defenders have tanks, planes 
and ships to keep the gamer from saving 
the POWs. Naturally, the foe becomes 
more tenacious and aggressive as the 
game continues. 

Choplifter! was designed by Dan Gorlin 
and published for home computers by 
Broderbund in 1982. Critics who pro- 
claimed it an all-time great would be 
shocked to see the many improvements 
made in the Sega version. This video 
game edition isn't just a good translation; 
it is clearly superior to the original pro- 
gram. The detailed background graphics 
and more sophisticated artificial intelli- 
gence for the computer-controlled enemy 
are especially notable. The cartridge pre- 
serves the essence of Gorliris triumph, 
while it brings the product up to 1987 
standards, with audiovisual effects which 
surpass the capabilities of any of the low- 
memory home computer systems. 

It takes coordination rather than blind- 
ing speed to pilot the Hawk like a com- 
bat vet. Choplifter! is thus particularly 
suitable for all-family entertaining, since 
quick-fingered youngsters won't automat- 
ically show up their elders. This is a tru- 
ly outstanding game, which every Sega 
owner will want to own. H 



XF55i 

DISK DRIVE 

$179.95 

FOR LOWEST ST 
PRICES CALL! 



DISK DRIVES 

ASTRA THE ONE (XE; XL) 

249,95 

ASTRA 2001 (XE/ XL)... 229.95 

ASTRA HD + 

(ST 20 mcgSd/sdrlve).. 849.95 

INDUS GT 179.95 

INDUS GT (ST d/s| 189.95 

PRINTER 
INTERFACES 
(XE / XL) 

MICROPRINT 29.95 

MPP-1150 39.95 

PR CONNEaiON 59.95 

PRINTERS 

STARNX-IO 169.95 

STAR NB24-10 449.95 

MODEMS 

AVATEX 1200 89.95 

AVATEX1200HC 119.95 

PRACTICAL 2400 199.95 

XE f XL SOFTWARE 

GAUNTLET 24.95 

GAUNTLET: DEEPER 

DUNGEONS 14,95 

AflKANOID 24,95 

HEAD OVER HEELS 22,95 

DRUID 22.95 

LIVING DAYLIGHTS 24,95 

ALTERNATE REALITY-CITY 

24.95 

ALTERNATE REALITY- 
DUNGEON 27,95 

UNIVERSE 34,95 

BOUNTY BOB STRIKES BACK 

29.95 

RETURN OF HERAaES .,,9.95 

ULTIMA I 39,95 

ULTIMA III 19,95 

ULTIMA IV 39,95 

THE PAWN 27,95 

WOMBATS I 29,95 

INFILTRATOR 22.95 

BOPS WRESTLE 22,95 

ACE OF ACES 22,95 

HARDBALL 22,95 

FIGHT NIGHT 22,95 

LEADER BOARD 27,95 

PHANTASIE 27,95 

aiGHT SIMULATOR II ,.,37,95 

AUTO DUEL 37,95 

PARTY QUIZ 14,95 

BASIC XL 36,95 

BASIC XE 46,95 

ACTIONI 46,95 

MAC 65 46.95 

TOOLKITS 18,95 

WRITER'S TOOL 38,95 

ATARI WRITER PLUS ,,,,39.95 

TYPING TUTOR 17.95 

SAT COMPLETE 27.95 

PAINTSHOP 29.95 

GRAPHICS I 14.95 

GRAPHICS II 14.95 

GRAPHICS III 14,95 

SYNCALC or SYNFILE ,32.95 

VIDEO TITLE SHOP 22.95 

DELUXE JOYSTICK (was $35) 

9,95 

ATARI JOYSTICKS ,,..2/9,95 



ST SOFTWARE 

BREACH 27.95 

BARBARIAN 27.95 

EMPIRE 37.95 

MIDI MAZE 27.95 

GAUNTLET 27.95 

ROADRUNNER 27.95 

ARKANOID 24.95 

XEVIOUS 29.95 

METROCROSS 29,95 

MOUSETRAP 24.95 

INDIANA JONES 29.95 

SOLOMONS KEY 29,95 

EAGLE'S NEST 27.95 

PROHIBITION 24.95 

EXTENSOR 24.95 

HADES NEBULA 24.95 

UBERATOR 22,95 

TYPHOON 24.95 

ALTAIR 24.95 

CRAnONSXUNK 24,95 

TRACKER 29.95 

SIUCON DREAMS 24.95 

JEWELS OF DARKNESS ,, 24.95 

KARATE MASTER 22.95 

PASSENGERS IN THE 

WIND 29.95 

KNIGHT ORC 29,95 

ANNULS OF ROME 29,95 

ALT REALITY-CITY 24.95 

ULTIMA II 36.95 

ULTIMA III 38.95 

ULTIMA IV 38,95 

PHANTASIE 24.95 

PHANTASIE II 24,95 

PHANTASIE III 24,95 

THE PAWN 29,95 

BORROWED TIME 29,95 

MINDSHADOW 29,95 

SPIDERMAN 9,95 

UNIVERSE II 34,95 

SUNDOG 24,95 

GUILD OF THIEVES 29.95 

STWAHS 24.95 

PLUTOS 19.95 

AIR BALL 24.95 

HEX 29.95 

BALANCE OF POWER,,,. 32,95 

SKYFOX 14,95 

ARCTIC FOX 27.95 

FUGHT SIMULATOR II ...32.95 

HACKER 17,95 

HACKER II 24,95 

SHANGHAI 24.95 

CHESSMASTER 2000 ,,,,29.95 

BRIDGE 5,0 22,95 

VIP-PRO 99,95 

VIP-GEM 119,95 

Dfl MAN 89.95 

PUBLISHING PARTNER .,94.95 

EASY DRAW 4995 

GRAPHIC ARTIST 124,95 

AEGIS ANIMATOR 48,95 

STTALK2,0 19.95 

PERSONAL PASCAL 49,95 

GFA BASIC 49,95 

GFA COMPILER 49,95 

TYPING TUTOR 24,95 

WORD WRITER ST 44,95 

DATA MANAGER ST 44,95 

SWIFCALCST 44,95 

REGENT WORD II 48,95 

REGENT BASE 1,1 79.95 

DEGAS EUTE 39.95 

N-VISION 29.95 

PAINTWORKS 24.95 

PRINT MASTER PLUS,.., 24.95 

ARTGALLERYI 19,95 

ARTGAUERVII 19,95 

DAC EASY ACCOUNTING ,44.95 
DAC EASY PAYROLL .,,,32.95 

MAGIC SAC 99,95 

PC DITTO 74,95 

DESK CART 69.95 

ST HARDWARE 

DOUBLE SIDED DRIVE,. 199,95 

20MEG HARD DISK 549.95 

1MEG UPGRADE KIT..., 109.95 

IMAGE SCAN 79.95 

COMPUTEREYES 179.95 



(714)639-8189 



Orders only please: 1-800-443-8189. 

Shipping: Software -tree shipping on orders over $100, 
olherwise S2.50 (USA). Herdware: depends on weight, a 
Charge cards add 3<Ki. C.0.0. add SI .90 & 3Vi,. 



COMPUTER GAMES + 

BOX 6144 
J ORANGE CA 92667 
(714) 639-8189 
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MOVING? 

DON'T MISS 
A SINGLE ISSUE 

Let us know your new 
address right away. Attach 
an old mailing label in 
the space provided below 
and print your new 
address where indicated. 



z 
I o 

ffi 

' D 



5 





3 
O 






n 


CO 






CO 

"a- 
o 








c/) 


-n 






0) 




o 




c 


B 


c 

CO 






g 




^ 




CD 


CD 


en 






CO 

III 




CD 




-1 


01 


j> 






? 




% 




o 

CO 


CI 
O 


CD 






-J 
O 
T 




cu 




CD 


n 


' 










c^ 




c 

CO 

E 


u 






CM 


O 


_o 




Z3 
O 

c 

CD 
m 


B 
1 




CD 
E 

m 


CD 
X 

O 

CD 
O 






m 


u 


01 






n' 


^ 


CD 




CD 

n 


CL 


TO 




D 


6) 


o 

n 

B 


CD 
CD 
CL 

c 


cc 


d 
g 


CD 
3 

CO 

c 


CO 

h- 




0) 


7 

3 

a 
E 
o 


n 


y 


CD 


C) 




O 




to 
o 


u 


2 

Q. 
CL 
CO 


■\— 
o 

CO 


O 

o 


CO 

n 

Z! 
C/5 

Tvi 


CD 
_C0 
CO 


CO 
(M 
69 


CO 

c 
o 
CO 


o 

c 

CD 

r 


(3 

3 


CD 


(n 


n 


5 

CD 
C 
CD 


U) 


1_ 


U) 


n> 


< 


o 

CD 


1 


o 

to 


CD 
"n 


CC 

^ 


CO 

o 


E 

CO 


P 


^ 


^ 


LL 


CO 


^ 


CL 


LL 


_i 




PAGE 66 / OCTOBER 1987 



ANALOG COMPUTING 



ST REVIEW 



v/ 



MaxPak 



SOFTWERX 

P.O. Box 71118 

Murray, UT 84107 

(801) 272-5623 

All resolutions $49.95 



by Andy Eddy 



Multiple function accessories are be- 
coming the latest rage, with programs like 
Cornerman (MichTron), MacroDesk and 
MacroManager (both by the now-defunct 
Shanner], giving users the ability to have 
a calculator, set alarms and take notes, 
among other things. Another entry in that 
field has emerged, with the introduction 
of MaxPak by a new company on the ST 
scene, Softwerx. 

What makes MaxPcik helpful is that it 
combines many features employed by ST 
users in their regular sessions, but does 
so from only one accessory slot. Once you 
configure the program and place it on 
your boot disk, the program will load at 
boot-up with all those options in place. 

The first thing you see when booting 
up is the MaxPak setup screen. Here, you 
see the size of the RAMdisk and print 
spooler configured in memory by the ac- 
cessory. Both are variable in size, up to 
the limit of available memory, using a sep- 
arate configuration program supplied by 
Softwerx. In this opening dialog box, you 
can also input the date and time, though 
if you have a clock cartridge or other hai-d- 
ware for that purpose, the time will be 
taken from there. 

Other features on this menu include: a 
screen saver with variable delay time (to 



prevent image burn-in; the screen will go 
blank if the mouse or keyboard aren't ac- 
cessed for a time, much like the attract 
mode on the 8-bit); toggles for the on- 
screen clock; an option to enable or dis- 
enable write verification (which will con- 
serve time over normal operations); and 
a RAMdisk copy function. The latter will, 
given a configuration file in the MaxPak 
folder, automatically load whatever files 
you choose into the RAIVldisk at boot-up. 

The next option lets you vary the spool- 
er functions. The spooler, for those unini- 
tiated, allocates a section of memory for 
routing of printer data. When the spool- 
er is in place, it frees up the computer for 
your use, while separately controlling the 
printer output. This spooler can be set to 
repeat the last thing printed as many 
times as needed, choose certain pages to 
print, or abort in midstream if you make 
a mistake. The spooler's contents can be 
sent to a disk file, also. 

Working in conjunction with the spool- 
er is Print Magic, which lets you embed 
printer control codes into any piece of text 
you want to print. This can be important 
for use outside a word processor, which 
most likely already has those features in 
place. The other nicety is the availability 
of the entire ST character set. In many sit- 
uations, foreign, mathematical and oth- 
er special characters may not be printable 
or used in a word processor like Word 



Writer ST. With MaxPak, a dialog box al- 
lows you to click on a desired character 
and plug it into your document at the cur- 
sor location. 

Perhaps the most eccentric option in 
this package is Math Magic. Let's say 
you're in the middle of putting together 
a large report. You don't have a calcula- 
tor handy and need to get some figures 
compiled quickly. Bringing up Math Mag- 
ic will display a dialog box with a long 
empty line and a bunch of button selec- 
tions underneath. If you plug in your for- 
mula on the provided line and hit "Cal- 
culate," your answer will come up in the 
dialog box. 

You can have the whole formula — or 
just the answer — automatically plugged 
into your report by clicking on the SEND 
ALL — or SEND — buttons, respectively. 
You also have the same options for direct- 
to-printer output. 

Rounding out MaxPak's offerings is an 
alarm function that allows up to eight dif- 
ferent alai'm times; a capture screen selec- 
tion that grabs whatever's on-screen and 
routes it to the spooler, where you can 
print it or save it to disk as a DEGAS- 
compatible file; and a keyboard-activated 
macro system that lets you assign com- 
monly used phrases to a single keystroke. 

The most potentially powerful feature 
of MaxPak is its ability to be brought up 
using the command key in combination 
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with the number of the option you're in- 
terested in. This means you can utiHze it 
from most non-GEM programs. 

Of course, all this sounds good, but 
MaxPak is not without its problems. For 
example, when I placed it on my word 
processing disk, Thunder! refused to load 
its dictionary for the accessory version. 
This problem was mentioned in the Max- 
Pak docs, but they claim you can "re- 
quest" Thunder! to load the dictionary 
from the options menu. Unfortunately, 
this didn't work for me. When I called 
Mark Ostlund, MaxPak's programmer, he 
told me he's received other complaints and 
is contacting the people responsible for 
Thunder! to help come up with a solution. 

Another annoyance is the implementa- 
tion of macros. The program requires you 
to set up the command key that will be 
used to trigger the macros and that will 
call up the accessory from the keyboard. 



The choices are the CONTROL, ALTER- 
NATE, LEFT SHIFT or RIGHT SHIFT 
keys, and your choice is loaded at boot- 
up from your original configuration file. 
As mentioned in the manual, some pro- 
grams might already use these keys, so 
your choice is important. 

The problem is that IVIaxPak disables 
normal use of the chosen command key. 
This became apparent when I tried to se- 
lect a macro while using Flash. Being a 
touch typist, use of either SHIFT key as 
the command key would have been im- 
possible. Flash uses the ALTERNATE key 
for its commands. And many telecommu- 
nications services require CONTROL-key 
combinations; not much is left for Max- 
Pak's macros. 

In my conversation with Ostlund, he 
said they may change MaxPak to give the 
option of using a pair of keys, such as an 
ALT-SHIFT combination. 



Given the overall quality of the prod- 
uct, the few flaws can be worked around. 
MaxPak's ability to be used with both 
GEM and non-GEM programs [in most 
cases) makes it a full-time employee for 
your ST, particularly if you do a lot of 
word processing or business applications, 
as its features are better tailored to those 
tasks. If Softwerx clears up the minor 
glitches apparent in this first release. 
MaxPak could end up being one of the 
better investments you can make for your 
ST. H 

And)' Eddy ii'orks as a cable TV (ecJi- 
nician in Connecticut, but has been in- 
terested in computers since higli sciiooJ. 
While his family's Atari 800 is four years 
old, he's been avidly playing arcade 
games since Space Invaders and is a form- 
er record holder on Battlezone. 



Megamax C 



for the 



Atari ST 



Featuring 

• One pass Compile • In-Line Assembly • Smart Linker 

• Full Access to GEM routines • Register Variable 
Support • Position Independent Code • and much more.. 

System Includes: 

• Full K&R C Compiler (with common extensions) 

• Linker • Librarian • Disassembler • C Specific Editor 

• Code Improver • Documentation « Graphical Shell 



Benchmark Co^P''" ^ilf*="'' Size 
Time Time 

Sieve 70 2.78 5095 

"Hello, world" 63 N/A 4691 

♦Times in seconds. Sieve with register variables. 



$199.95 For more information, call or write: 

Megamax, Inc 

Box 851521 
Richardson, TX 75085 

(214) 987-4931 

VISA. MC, COD ACCEPTED 
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WANT 

TO 

SUBSCRIBE? 



it's worth it. 



CALL TOLL FREE 

1-800-345-8112 
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Artificial 
inteiiigence 



Learning power for your ST. 



\ 



by Dr. Ron Schaefer 



While the Japanese are working furiously to develop a 
fifth-generation computer capable of true artificial intelli- 
gence [fondly known as AI), I thought I would see if I could 
come up with a short AI program of my own for the Atari 
520ST, a mere third-generation machine. 

The fifth generation. 

First, a little background on AI . . .The idea of AI is not 
new; in fact, computer scientists have been working on it 
for decades. In essence, it is both a problem of software and 
of hardware. 

Computers themselves have gone through a succession 
of generations; the first-generation computers built in the 
fifties were very slow by today's standards and were room 
sized. With the advent of the transistor, the smaller, faster 
second generation was born. In the sixties, the development 
of the semiconductor chip — which could do the job of hun- 
dreds of transistors — gave rise to the third-generation ma- 
chines. In the seventies, the number of transistors that could 
fit on a chip increased to thousands. These very large scale 
integrated chips have given rise to a super-fast fom'th gener- 
ation. Each successive generation has been faster than the 
previous one, but all work essentially the same way, by 
processing one instruction at a time. 

Fifth-generation computers will use large databases of 
knowledge and symbolic logic to mimic the human brain. 
Through the use of coprocessing, splitting up a task into 
parts and running each part simultaneously, today's speed 
limit of millions of arithmetic operations per second will 
be raised to billions of logical inferences per second, each 
logical inference a kind of symbolic if/then-type statement. 
This tremendous speed will be necessary if all the com- 
plex rules and exceptions are to be included for tasks such 
as true speech recognition. 



AI, the program. 

In a nutshell, my program, modestly enough called Ar- 
tificial Intelligence, will read a set of rules from a separate 
knowledge base file and ask you a set of yes and no ques- 
tions, using GEM alert boxes, mitil an answer is reached. 
If the answer is uixknown to the database, you have the op- 
tion of entering in new questions and answers, which will 
be added to the database. On request, this modified data 
is saved back onto the disk for future use, enabling the pro- 
gram to use any number of knowledge bases on different 
subjects, and to be able to learn new information as the pro- 
gram is used. 

Creating a title. 

This AI program makes extensive use of subroutines to 
perform many of the GEM and VDI calls. These subroutines 
can easily be modified for use in your own programs. 

Let's go through some of the more interesting aspects of 
the program. Line 10 gives the string TITLES a value, then 
calls the subroutine TITLE on Line 660. This will replace 
the word OUTPUT at the top of the output window with 
the contents of the string TITLES, giving the program a cer- 
tain professional look. By the way, if you want to include 
the Atari logo in your titles, this can be entered from the 
keyboard in the BASIC editor by pressing CONTROL-period 
(.) and CONTROL-slash (/). 

Alert boxes. 

Lines 80 through 85 set up the first GEM-type alert box. 
This simplifies the use of the boxes through repeatedly em- 
ploying the subroutine DOALERT on Line 1490. 

First, a string called TYPE$ is set equal to: 1, the excla- 
mation mark; 2, the question mark; 3, the stop sign; or a 
blank, which prints nothing. Next, a string called TEXT$ 
is set to the text that you want displayed in the alert box. 
According to the books, you can have up to five lines of 
text, each line up to forty characters long. However, when- 
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ever my text got over four lines or longer than about thirty 
characters, I started to get lots of errors and system crashes. 

The string TEXTS that appears inside the alert box can 
be more than one line long, each line separated by a |, a 
character created by pressing SHIFT-backslash (\). This | 
serves the function of a carriage return, telling the alert box 
to start a new line. For an example of how this is done, see 
Lines 970 through 980. Text should not contain square 
brackets ([ or ]), and, for this particular application, no com- 
mas (,) are allowed in the knowledge base rule file data. 

Finally, the string BUTTONS is set. There can be up to 
three buttons. If only one button is used, it can be up to 
twenty characters of text. These buttons, when activated 
with the mouse, will return a value in C obtained on Line 
1550, which will be 1-3, depending on which button was 
pressed. The name of each button should be separated with 
a I as demonstrated in Line 830. One of these buttons can 
be set to be the default, so a return will have the same ef- 
fect as activating that button. This is accomplished in Line 
1530; in this program it's always the leftmost button or but- 
ton number one. 

Reading in the rules. 

Next, the AI program reads in the rules, the knowledge 
base the program "thinks" with. In Line 70, the default 
knowledge base or rule filename is set equal to the string 
DBNAME$. This can easily be modified by editing the pro- 
gram to the name of your favorite set of rules. I like to use 
folders, so, for this program to work properly, the rule files 
must be in their own folder, called AI. If you're not a folder 
fan — or would like to store your rule files in a folder with 
a different name — then change the default knowledge base 
folder variable ROOT$ in Line 65. If you do not want to use 
a folder to store your rule files, set ROOT$ = " ". 

A rule file consists of the following: the first line is the 
number of rules, a value which is stored in the variable 
FLEN and is used to dimension the arrays of the next four 
variables. The next line is a string containing the rule's num- 
ber (Rule#). This string is stored in RULE$(n,l). Following 
that is the text for the question or answer, which gets stored 
in RULE$(n,2]. Finally come two numbers that tell the pro- 
gram which rule to go to, based on the answer to the ques- 
tion. These values are stored in the variables CASE(n,l), and 
CASE(n,2), respectively. If yes is selected and CASE(n,l) 
is equal to 0, then that is the final answer; there are no fur- 
ther branch points. If, on the other hand, no is selected and 
CASE(n,2) is equal to negative 1, then the answer is un- 
known to the database. At this point, you're given the op- 
tion of adding a new question and answer, thus creating a 
new branch point, 

Here's an example of a short rule file that tries to figure 
out what type of car you drive. 



Rule File 
6 

Rule# 1 

Does your vehicle|have 4 wheels? 

2, -1 
Rule# 2 
Do you drive a|car? 

4, 3 
Rule# 3 
You drive a|picl<-up truck. 



Comment 

{number of rules} 

{set = rule$(1,1)) 

{text for 1sl rule = rule$(1,2)) 

{goto rule #2 for yes, ? for no) 

{set = rule$(2,1)) 

{text for 2nd rule = rule$(2,2)) 

{goto rule #4 for yes, #3 for no) 

{set = rule$(3,1)) 

{text for 3rd rule = rule$(3,2)) 



0,-1 
Rule# 4 
Do you drive a|sports car? 

5 ,6 
Rule# 5 
You drive a Lotus. 

0,-1 
Rule# 6 
You drive a station | wagon. 

,-1 {final answer for yes, ? for no) 



{final answer for yes, ? for no} 

{set = rule$(4,1)) 

(text for 4tti rule = rule$(4,2)} 

{goto rule #5 for yes, #6 for no) 

{set = rule$(5.1)} 

{text for 5tti rule = rule$(5,2)) 

{final answer for yes, ? for no) 

{set= rule$(6,1)} 

{text for 6tti rule = rule$(6,2)} 



l\/1odifying tlie Icnowledge base. 

There are two different subroutines for modifying the 
knowledge base, LEARNQ (learn question) and LEARNA 
(learn answer). LEARNQ, the simpler of the two, will ap- 
pend a new question and answer to the end of the knowl- 
edge base file. A question is defined as a rule in which a 
yes response is set equal to another rule number and a no 
response is set equal to -1, (see Rule #1 in the car knowl- 
edge base example, above). 

LEARNA is a little more complex. This subroutine will 
be run if you disagree with a final answer A final answer 
is defined as a rule in which a yes response is set equal 
to and a no response is set equal to -1, (see Rule #5 in 
the car knowledge base example, above). In this instance, 
you must supply a new final answer, and a yes-no question 
that will differentiate between the old final answer and the 
new final answer The old answer and the new answer are 
now appended to the end of the knowledge base, and the 
new question takes the place of the old answer. Confused? 
Well, perhaps the following examples will help. 

Going back to the car knowledge base as an example, let's 
say you've loaded this knowledge base into the program. 
You start answering questions with Rule# 1, Does your ve- 
hicle have 4 wheels? Let's say you actually drive a motor- 
cycle; this statement would be false. You answer no. Since 
the value assigned to a no response in the knowledge base 
is -1, (see line number 4 in the above example knowledge 
base), this tells the program that the answer to this ques- 
tion is imknown, and you're asked if you want to modify 
the knowledge base. If you do the modification, the pro- 
gram will ask you to enter the correct answer. At this point, 
you should type in You drive a motorcycle. 

You will next be asked to enter a new question, such that 
a yes answer will lead to the conclusion You drive a motor- 
cycle. This new question could be entered as Does your ve- 
hicle have only two wheels? If you now indicate that you 
want this modified knowledge base saved , there will be two 
new rules appended onto the end of the file, and the new 
knowledge base listing will be as follows: 



Rule# 1 

Does your vetiicle|have 4 wtieels? 
2 , 7 
Rule# 2 
Do you drive a|car? 

4 , 3 
Rule# 3 

You drive alpick-up truck. 
,-1 
Rule# 4 
Do you drive a | sports car? 

5 , 6 
Rule* 5 

You drive a Lotus. 
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,-1 
Rule# 6 
You drive a station|wagon. 

,-1 
Rule* 7 
Does your vehicle have|only 2 wheels? 

8 ,-1 
Rule* 8 

You drive a motorcycle. 
,-1 

Now, let's say that you drive a Mazda RX-7 rather than 
a Lotus. When you get to Rule #5, You drive a Lotus, you 
indicate no. The program will once again inform you that 
the answer to this question is unknown. If you want to modi- 
fy the knowledge base, the program will ask you for a new 
answer. You type in You drive a Mazda RX-7. 

You'll then be asked to supply a yes-no-type question, 
such that a yes answer will conclude that You drive a Maz- 
da RX-7 and a no answer will conclude that You drive a 
Lotus. Such a question might be: Is the moke of the car Jap- 
anese? You're then asked if you want to modify the knowl- 
edge base. If you indicate yes, the new car knowledge base 
will look like this: 

10 
Rule* 1 
Does your vehiclelhave 4 wheels? 

2 , 7 
Rule* 2 
Do you drive a|car? 

4 , 3 
Rule* 3 

You drive a|pick-up truck. 
,-1 
Rule* 4 
Do you drive a|sports car? 

5 , 6 
Rule* 5 

Is the car a Japanese! make? 

9 , 10 
Rule* 6 

You drive a station|wagon. 

,-1 
Rule* 7 
Does your vehicle have|2 wheels? 

8 ,-1 
Rule* 8 
You drive a motorcycle. 

,-1 
Rule* 9 
You drive a Mazda RX-7 

,-1 
Rule* 10 
You drive a Lotus. 

,-1 

Error! 

Occasionally, when using this program and calling up 
successive rule files, I would get an "Undefined Error." I 
was unable to trap this error using error-handling routines 
like the one on Lines 200 and 430 through 480. 

I believe that this represents a disk-reading error. If it does 
occur, just restart the program; it will often read the file 
successfully on the second try. If you continue to have prob- 
lems with a rule file, be sure to review the rules when the 
alert box asks you to, and see if there are any errors in the 
data. 

Now, run and use AI — give your computer a chance to 
live and learn. B 



Ron Schae/er, M.D. graduated from medical school at the 
University of California in San Francisco, and has just fin- 
ished a residency at the University of Hawaii, specializing 
in Interna] Medicine. He's been programming for almost 
seventeen years and has pubh'shed research on three- 
dimensional moJecuJar modeling of proteins and DNA, as 
well as numerous articles on programming the Atari ST. He 
recently started his own software company, called Schaef- 
er Supergraphics. All his previous experience has been with 
mainframes, mostly VAX lll70s, lll750s and the Evans on 
Sutherland Picture System. The ST is his first personal 
computer. 

Listing 1. 
ST BASIC listing. 

18 titleSz" A Artificial Intelligence 

by Dr. Schaefer A "sgosub TITLE 
26 MfllNPROGRAM: 'JtltttltlttHtJtltJttt MAIN PROGR 
AM ttSttJtSttttttSttttSttttttltttttttttttttnttlttt 
30 fullw 2:clearw 2: learning$="of f " 
48 gotoxy 10, l:?"This progran uses a F 
orward Chaining inference engine" 
58 gotoxy 18, 2;?"and a self nodifying 
knowledge base to aid in decision" 
68 gotoxy 16, 3:?"analysis or to create 

an expert systen." 

65 RootS="AIS": ■< DEFAULT K 

NOMLEDGE BASE FOLDER NAME 

78 dbnaneS="car.r": ' < 

-DEFAULT KNOWLEDGE BASE NAME 

80 text$="Artif icial Intelligence|by R 

on Schaefer MD|Continue?" 

85 typeS="2" ! buttonS="Ves | Quit" : gosub 

D8ALERT 

98 if c=2 then end 

108 textS="Choose your knowledge base. 

":button$=dbnaneS+"|0ther":typeS="3" 

110 gosub DOALERTiclearu 2 

120 if c= 2 then gotoxy 18, 6: inputJ"En 

ter knowledge base file nane";dbnane$ 

136 typeS="2":text$="Do you want to re 

view I the rules" : button$="No |Ves" 

146 gosub DOALERT 

156 ' ttttttttttttttttttttttttSttSttttSttttntt Read Data 

Base nttttsnnttftttttttssttttttttttttttstttt 
166 nun=l:olddbnane$=dbnane$ 
176 on error goto 436 
188 filenane$ = Root$+dbnane5 
190 close Itliopen "r',«l, f ilenaneS 
200 on error goto 438 
216 input ttl, f len 

228 erase ruleSierase caseierase logic 
238 din rule$ tf len+10, 2), caseCf len+lO, 
2), logicCf len+10, 2) 
240 gotoxy 18, l:?"The file ";dbnaneS;" 

has"Jf len;"rules 

250 input «1, ruleStnun,l),rule$tnun,2) 

260 input ttl, caseCnun, 1}, caseCnun, 2) 

276 if c = 1 then goto 398 

288 gotoxy 8,5 

296 for t=l to 4 

386 gotoxy 26, 5+t;?" 
II 

316 next tsgotoxy 8,5 

326 gotoxy 36, 5!?ruleSCnupi, 1) :nxt=6 

338 lines$=rule$(nun, 2} igosub LINESOUT 
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inxt^nxt+l 

340 gotoxy 25, nxt!?"Ves=";case(nun, 1) J 

" No=";caseCnun, 2) 

350 linef 160, 40, 430, 40: linef 430,40,4 

30,95 

360 linef 430, 95, 160, 95: linef 160,95,1 

60,40 

370 linef 157, 37, 433, 37: linef 433,37,4 

33,98 

380 linef 433, 98, 157, 98: linef 157,98,1 

57,37 

390 on error goto 430 

400 gotoxy 18, 2:?"Reading file ";dbnan 

e$J" on rulelt";nun 

410 nun=nun+l 

420 goto 250 

430 if err=62 then 500 

440 if err=53 then 450 else 470 

450 error$="The file "+dbnane5+" uas n 

ot found" 

460 gosub ERRALERT:resune 490 

470 errorS="There was an error in open 

inglthe file '"+dbnane$ 

480 gosub ERRALERT:resune 490 

490 close «l:goto 16 

500 resune 510 

510 clearw 2 

520 brain: 'ttltnnttSttttttttttSttttntttttttttt The Br 

ain ttttttttttttltttttsnnttttltttttttttttittttttt 

530 rule=l:count=l:erase logic:diM log 

ic(flen+10,2) 

540 logic (count, l)=rule 

550 if casefrule, 2)=-l and casetrule, 1 

)=0 then 560 else 590 

560 gosub ANSWERflLERT: logic tcount, 2)=c 

:count=count+l 

570 if casetrule,c)=0 then 628 

580 if casetrule, c)=-l then gosub LEAR 

NA:goto 620 

590 gosub RULEALERT 

593 if c=3 then 620 

595 if casetrule, c)=-l then gosub LEAR 

HR:goto 620 

600 if casetrule, c3=0 then 620 

610 rule = casetrule, cJ : logic (count, 2J 

=c :count=count+l:goto 540 

620 gosub REPALERT:if c=l then BRAIN 

630 if c=2 then gosub L0GIC:goto 620 

640 if learning$="on" then gosub WRITE 

FILE 

650 goto MAINPROGRAM 

660 TITLE: 'lt»»«lt»»K««««ltttJtlt Makes a ti 

tie «S8»tttttttt}ttttttts«ttttn»»ittt]tttttn8 

670 alt=gb:gintin=peek(att+8) :poke ginti 

n+0, peek (systab+8) 

680 poke gintin+2, 2:s«=gintin+4:title$ 

=title$+CHR$tOJ :poke sit, varptr ttitle$) 

690 gensystl05) 

700 return 

710 ERRALERT: 'Stttttttttttttttttttttttttttt Alert bo 

X for file errors «ttJ«tn«Jt»tt» 

720 gotoxy 30,4:?"Error «";err 

730 textS="ERR0R! ! ! T'+errorS: buttonS=" 

BuMner":typeS="l" 

740 gosub DOALERT 

750 return 

760 RULEALERT: 'ttttltttttttttttltsttttlttttt Alert b 

ox for rules nttttttSttttttttStttttttttt 

770 typeS="2":text$=rule$(rule, 1]+"|"+ 

rule$(rule, 2) :button$="Ves|No IQuit" 



780 gosub DOALERT 

790 return 

800 REPALERT: 'tt1t«tt«»Jttt««ltJttt Repeat san 

e data base ]t»ttttttttttttttittt«ittt 

810 txt$="Do you want to use the|sane 

knowledge base," 

820 text$=txt5+"|review the logic, or| 

use another data base?" 

830 type$="3" : button$="Sane | Logic | Anot 

her" 

840 gosub DOALERT 

850 return 

860 LOGIC: '»Jt«tt»tta«««JtJ«tlt Reviews the 

logic ttnttttttttttttSttttttltltttttttlttttt 

870 q=l 

880 while q < count 

890 if logic (q,2)=l then yornS=" (Yes) 

" else yornS=" (No)" 

900 text$=rule5(logic(q, l),2)+yornS 

910 typeS="l":button$="Logic Review" 

920 gosub DOALERT:q=q+l 

930 wend 

940 return 

950 LEARNA: 'ttttttttttttttSttRSttttStttt Learn new 

question »tttttt]ts»»]t»tt9ttttttttt« 
960 type$="2":buttonS="No|Ves" 
970 text$="ANSWER UNKNOWN |Would you li 
ke to addlanother rule and answerl" 
980 text5=text5+"to the data base":gos 
ub DOALERT 

990 if c=l then return else learningS= 
"on" 

1000 clearw 2:linef 158, 90, 409, 90: line 
f 409,90,409,150 

1010 linef 409,150, 158, 150! linef 158,1 
50,158,90 

1020 linef 155, 87, 412, 87: linef 412,87, 
412,153 

1030 linef 412, 153, 155, 153: linef 155,1 
53,155,87 

1040 gotoxy 20, 10!?"Enter the correct 
answer" 

1050 f len=flen+l : case (flen,l)=0: case (f 
len, 2)=-l 

1060 a=f len:b=2:gosub INLINES!ruleS(f 1 
en,l)="New Rule" 
1070 clearw 2 

1080 gotoxy 20,l:?"Enter a yes no ques 
tion such" 

1098 gotoxy 20, 2:?"that the following 
is true" 

1108 gotoxy 26, 3:?"(VES)":nxt=4 
1110 lines$=ruleS(flen, 2) :gosub LINESO 
UT:nxt=nxt+l 

1120 gotoxy 20, nxt :?"(NO)":nxtrnxt+l 
1130 lines$=ruleS(logic tcount-1, 1), 2) : 
gosub LINESOUT 

1140 flen=flen+l:ruleS(flen, 2)=rule$fl 
ogic tcount-1, 1), 2) 

1150 ruleftflen, l}=rule$ (logic (count-1 
, 1) , 1) : c ase (f 1 en, 1) =0 : case (f len, 2) =-1 
1160 case(logic(count-l,l),l)=f len-l:c 
ase (logic (count-1, 1), 2)=f len 
1170 linef 160, 8, 423, 8: linef 423,8,423 
,150 

1180 linef 423, 150, 160, 150: linef 160,1 
50,160,8 

1190 linef 157, 5, 426, 5: linef 426,5,426 
,153 
1200 linef 426, 153, 157, 153: linef 157,1 
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53,157,5 

1210 a=logic tcount-1,1) :b=2:gosub IHLI 

HES 

1220 clearw 2:return 

1236 LINESOUT: 'Jtlttttttt»»«tlt»«lttt«t«t Prints 

lines to screen ttttttttnttttttttSStttt 
1240 start=l:ends=LEN(lines$) 
1250 if IMSTRCstart, lines$, "|")=0 then 

1260 else 1279 
1260 gotoxa 20, nxt!?mDStlinesS, start, 
ends) : return 

1270 endsrIHSTR (start, linesS,"|"J 
1280 gotoxy 20, nxt:?MID$(linesS, start, 
ends-start) 

1290 start=ends+l:nxt=nxt+l:goto 1250 
1300 IHLIHES: 'ItJtttttttltttttltttJtattttJttttt Tenpla 
te for input lines Jttt««tt«att«ttttJt«a 



1310 gotoxy 19,12 

of 3 lines) 

1320 gotoxy 20,13 

> " 

1330 gotoxy 20,14 

> ■■ 

1340 gotoxy 26,15 

> " 

1350 gotoxy 19,13 



?"C25 char/line nax 
?" < 



?"<_ 
?"<_ 



inputJ"=>", anlSiif L 



input;' 

1360 
?"< 



:>", an25!if L 



ENCani$) > 25 then 1320 
1360 gotoxy 20, 14:?"<. 

> " 

1370 gotoxy 19,14 
ENCan2$) > 25 then 
1380 gotoxy 20,15 

> ■' 

1390 gotoxy 19, 15: inputJ"=>", an3S: if L 

ENCan3$) > 25 then 1386 

1400 rule$ (a, b) =anl5+" | "+an2$+" | "+an3S 

1410 if RIGHTStruleSCa, b),l)="|" then 

1420 else 1430 

1420 ruleSCa, b)=MIDS(rule$ta, b),l, LENt 

rule5Ca,b))-l) :goto 1416 

1430 return 

1440 ANSWERALERT: "attltattttttttattattttttlt Aler 

t box for an answer »a»«tt»«»a»ttlt 

1450 text$="ANSWER "+rule5 (rule, 1)+"|" 

+rule$(rule, 2) 

1460 type$="l"!button$="Ves|No" 

1470 gosub DOALERT 

1480 return 

1490 DOALERT: 'aannattttttttttsttsttttlt Creats 

an alert box ttattttttttttttssstsstttt 

1500 'accepts to strings typeS, text$, 

and button$, outputs value c 
1510 aa=gb:control=peek(att] :global=pee 
kCaJt+4) :gintin=peel<fa«+8) 
1520 gintout=peel<(att+12) :addrin=peekCa 
«+16) :' initialize alert box 
1530 Ntt=addrin:poke gintin, l:'l is the 

default button 
1540 alert$="["+typeS+"] C|"+text$+"N [ 
"+button$+"] •■+CHR$ CG) +CHR$ (O) 
1550 poke H», varptr falert$) :gensys(52) 
:c=peekCgintout) : "c^button 
1560 return 

1570 WRITEFILE: "aattttttttttaaaa Writes a n 
odified database file itSflSttassaatt 
1580 tgpe$="2" : button$="Ho | Ves" 
1590 textS="Do you want to save | the no 
dified knowledge] base?" 
1600 gosub DOALERT 
1610 if c=l then return 



1620 button$="Hew Hane |"+dbnane$ 

1630 text$="Save the nodif ied|knowledg 

e base filejas." 

1646 gosub DOALERT 

1650 if c=2 then newdbnane$=Root$+dbna 

ne$:goto 1686 

1666 if c=l then gotoxy 16, 5: input;"En 

ter the new file nane";ndbnane$ 

1676 newdbnane$=Root$-i-ndbnane$ 

1686 on error goto 1776 

1685 gotoxy lO, 6:?"Writing new knowled 

ge base file: "Jnewdbnane$ 

1690 close tt2:open "0",lt2, newdbnaneS 

1700 ?lt 2, flen 

1710 for newloop=l to flen 

1720 ?lt 2, "Rulelt";neuloop 

1730 ?» 2,rule$tnewloop,2) 

1740 ?tt 2, caseCnewloop, l);","Jcasetnew 

loop, 2) 

1750 next newloop 

1760 return 

1770 if err=57 then 1786 else 1786 

1780 errorS="Error in|writing the file 

|"+newdbnaneS 

1790 gosub ERRALERT 

1806 resune 17f.0 

1950 LEARNR: 'attttttttttttttttasttttttlttt Learn ne 

w rule question ttaattttttttttttttaitttttastt 

1966 tapeS="2" : button$="No | Ves" 
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129.95 


ATARI WRITER . 


34.95 


COMPULSIVE COPIER 


29.95 


1050 W/HAPPt 1»5T ?09.95 


BASIC CARTRIDGE 


19.95 


COPT II ST 


29.95 


130 IE 


129.95 


BASIC IE 


49.95 


0EGA5 ELITE 


47.95 


aa CHIP SET 


;i.95 


BASIC XL 


39.95 


COVETED MIRROR 


17.95 


620 DISK DRIVES 


CALL 


ConPUTEH WARS 


14.95 


EXPRESS LETTER 


34.95 


8'jO imtRfACE 


109.95 


DEFENDER 


4.99 


GATO 


25.97 


9; OUNIHOK 


59.95 


DOS 2.5 W/MANUAl 


9.95 


H&D BASE 


69.95 


ACCESSORIES 


CALL 


£.1. PHONE HOHE 


5.99 


CRIMSON CROWN 


17.95 


APt FACE 


49.95 


GRAPHICS I. II. in 


14.97 


LEADER BOARD 


24.97 


AVAIEX MODEMS 


CALL 


HAPPY ARCHIVER 


34.96 


LOGIKHfiON CLOCK 


39.95 


CABLES 


13.95 


MEGAFONT [1 


17.95 


MARK WIILIAMS C 


124.95 


CHIP/ARCHIVER 810 


69.95 


MINER 2049ER 


5.95 


MEGAMAX C 


139.95 


EPflOM BURHER 


129.97 


MUSIC PAINTER 


6.95 


MOOUlA-2 


69.97 


il RAM 520 


169.95 


P.S. COMPANION 


21.97 


EASY DRAW 


69.95 


HAPPT 1050 ENHANC 


124.95 


PAGE DESIGNER 


17.95 


POINT OF SALE 


69.95 


HAPPT 810 ENHANCE 


104.96 


DRAGON RAIDERS 


14.95 


PRINI WORKS 


42.97 


HAPPY CONIROLER 


39.96 


PRINT SHOP 


26.97 


PROLOG 


69.95 


HARD DISK DRIVES 


CAIL 


RUBBER STAMP 


19.95 


PUBLISH PARTNER 


119.95 


ICD MIO 1 MEG 


CAIl 


SPARTA DOS CONST 


29.95 


SOUND DIGITIZER 


119.95 


ICD MIO 256K 


CALL 


STAR RAIDERS 


6.96 


ROCJIE 


22.97 


LICHI PEN 


69.95 


TIME WISE 


6.95 


RUBBER STAMP ST 


24.95 


NfNELL 256*: U.G. 


3A.95 


TOP DOS 1.5 PLUS 


29.95 


HOPIE PLANETARIUM 


20.97 


NUMERIC KEYPAD 


39.95 


TYPESETTER 


19.95 


ST COPY 


29.95 


OMNIVIEH AL/HE 


36.95 


HOME WORD 


24.96 


LOW BASIC 


69.96 


P.R. COdNECTION 


57.95 


WAfiP SPEED DOS IL 


24.95 


PC BOARD DESIGNER 


169.95 


POWER SUPPLIES 


CALL 


ONE ON ONE 


14.96 


TEMPLE OF APSHI 


19.95 


PRINTERS 


CALL 






STAR HAIOEBS 


25.95 


PRINTER CONNECT. 


39.95 


ATARI REPAIR SERVICE 


SWIFTCALC ST 


47.95 


R-TIME CARTRIDGE 


19.95 


ITEMS NOT LISTED 


CALL 


THUNDER 


23.97 


RAMBO XL UPGRADE 


29.95 


1050 DISK DRIVE 


69.95 


TIME BANDITS 


24.97 


RAMCHARGER 


139.95 


130 XE 


69.95 


TYPESETTER ST 


24.95 


RAHROfl XL 


39.95 


520 0I5K DRIVE 


99.95 


ULTIMA III 


35.97 


lOUCH TABLET 


69.95 


520 SI 


139.95 


VIP PROFESSIONAL 


99.95 


U.S. 0OU6LER 


29.95 


850 INTERFACE 


49.95 


WINTER GAMES 


24.95 


UPRINT INTERFACE 


59.95 


ATARI PRINTER 


69.96 


WORLD GAMES 


24.95 


iL/xE eos 


49.95 


POWER SUPPLY 


12.95 


WRITE 90 


18.97 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE 
ADO %5 FOR SHPPWG AND MSURANCE MOST ORDERS StflPPED SAME 

DAY . FOREIGN ORDERS WELCOME WITH SUFFCCNT POSTAGE 

HCLUDED . ALABAMA RESIDENTS ADO 7% SALES TAX . ADD 6% FOR 

VISA. ADO »5 FOR ARMAL ADO «15 FOR 0VERNH3HT SH»>MENT 

SOUTHERN SOFTWARE 

1879 RUFFNER ROAD BIRMINGHAM. AL 35210 

CIRCLE #121 ON READER SERVICE CARD 
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^^^Artif icial Intelligence 



continued 



1970 text$="ANSWER UNKNOWN [Would you 1 

ike to addlanother rule and answerl" 

1988 text$=text$+"to the data base"!go 

sub DOftLERT 

1996 if c=l then return else learnings 

="on" 

2000 clearw 2:linef 158, 90, 469, 90: line 

f 409,90,409,150 

2010 linef 469, 150, 158, 150: linef 158,1 

50,158,90 

2020 linef 155, 87, 412, 87: linef 412,87, 

412,153 

2030 linef 412, 153, 155, 153: linef 155,1 

53,155,87 

2040 gotoxy 20, 10:?"Enter the new ques 

tion" 

2045 "NEW QUESTION will be placed at e 

nd of rule file 

2050 f len=f len+l:casetf len,l)=f len+l:c 

asetflen, 2)=-l 

2060 a=f len:b=2:gosub INLINES:ruleS(f 1 

en, l)="New Rule" 

2070 clearw 2:linef 158, 90, 409, 90: line 

f 409,90,409,150 



^^ 
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'The most useful program for the Atari since Print Shop!*" 



FORMS GENERATOR 

for the Atari 800, 800XL, 65XE, 130XE 

Designed by Jeff Brenner, columnist for Computer Shopper 
magazine, of "Applying The Atari" fame, and autfior of book 
and magazine articles in COMPUTE!. ANALOG and others. 
LOOK WHAT YOU CAN DO WITH FORMS 
GENERATOR: Purchase merchandise by mail? Next 
time, send a customized purchase order form! Does 
your home or business ever need statements, in- 
voices, proposals, job work orders, gilt certificates, 
etc.? No problem! Use FORMS GENERATOR'S scrolling spreadsheet- 
style screen to design almost any form to suit your exact needs. What 
you see on-screen is what you get on paper! Use the text mode with any 
80-coiumn printer, or the high-res graphics mode with the Epson, 
Gemini/Star, Okidata, Panasonic or Prowriter for remarkably realistic 
forms. BUT THAT'S JUST THE BEGINNING: Once you've designed a 
form, you can program FORMS GENERA TOR to make all calculations 
automatically! Imagine: after you enter quantities, descriptions and 
prices, FORMS GENERATOR moves about the form calculating ex- 
tended prices, subtotals, and even the sales tax! Lil<e magic! (Sample 
invoices included). You can also use FORMS GENERATOR for record 
l<eeping. since you can save filled forms to disld 

Read what our customers have written: "Exceilent. . easytouseand ran perfect(ly) 
. ." T.W. Wethersfield. Connecticut: "1 was most impressed with your FORfVIS 
GENERATOR program " J E. King. South Carolina: "Love it!" C.R. Cortland. Ohio. 
Our "down to planet Earth" price: Only $23.95 (product #ATA611). 

iliiwi^*-^r";'*""f i^^^ ■ i ;■ ■ " r*:1^ "*":^ 



Send coupon to. 

Tuuentiy-Flfth 




Softujorc Division 

Dept. AT2 

2.51 fifth Huenue 

Suite 301 

Kzuj Vorl<. t\l V 1 000 1 



u Ytb' Please rush me ^u^(/VJ6 uit/vtM/W'uH ipiuuuui 
«ATA611) with complete documentation. 90-day free 
replacement warranty, full customer service support and 
20-page Atari software catalog. I am enclosing $23.95 
+ S2.74 (tor first class shipping and handling.) 
DCheck/lvloney Order enclosed DC.O.D. (add S2.50) 
D fvlaslerCard D Visa 

Name 

Address 

City E 

Card No. 



-Zip 



Signature 



_Exp. Date 
_Phone » _ 



New York State residents add 8% sales tax. 
'The Print Shop and Atari are registered trademarks of Broderbund Software and Atari 
Corp.. respeclivefy. — Prices and availability sublect to change without notice. 

CIRCLE #122 ON HEADER SERVICE CARD 



ST CHECKSUM DATA. 

(see page 9) 

10 data 956, G41, 754, 160, 141, 430 
, 666, 56, 165, 382, 4351 

90 data 277, 410, 492, 380, 352, 335 
, 584, 561, 624, 622, 4637 

190 data 62, 605, 119, 164, 571, 19, 

634, 453, 48, 734, 3409 

290 data 858, 326, 782, 391, 465, 10 
1, 640, 694, 719, 773, 5749 

390 data 634, 987, 639, 482, 488, 58 
0, 920, 886, 903, 892, 7251 

490 data 445, 704, 377, 771, 488, 45 
, 14, 184, 658, 161, 3847 

590 data 596, 90, 203, 639, 266, 636 
, 490, 841, 822, 298, 4881 

670 data 251, 740, 796, 342, 97, 988 
, 553, 347, 357, 897, 5368 

770 data 863, 359, 369, 595, 997, 54 
9, 579, 349, 359, 165, 5184 

870 data 791, 449, 152, 477, 198, 62 
, 69, 358, 573, 214, 3343 

970 data 396, 0, 535, 63, 84, 837, 8 
6, 20, 756, 318, 3095 

1070 data 537, 640, 282, 765, 608, 5 
82, 656, 898, 889, 140, 5997 

1170 data 485, 892, 518, 944, 276, 6 
67, 277, 726, 446, 671, 5982 

1270 data 263, 427, 715, 452, 929, 7 
36, 738, 740, 450, 741, 6191 

1370 data 463, 744, 472, 779, 437, 6 
18, 862, 735, 83, 746, 5948 

1470 data 794, 867, 861, 922, 210, 8 

0, 294, 440, 222, 868, 5558 

1570 data 458, 787, 632, 793, 924, 9 
36, 587, 797, 498, 582, 6914 

1670 data 24, 723, 226, 534, 761, 33 
3, 618, 721, 948, 955, 5843 

1760 data 874, 960, 917, 67, 354, 49 
9, 717, 814, 318, 386, 5916 

2080 data 135, 832, 598, 834, 989, 4 
15, 221, 170, 142, 839, 5168 

2090 data 597, 834, 699, 621, 22, 43 

1, 407, 3611 



WANT TO 
SUBSCRIBE? 



It's worth it. 



CALL TOLL FREE 
1-800-345-8112 
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Boot 




REGULAR FEATURE 




Camp 



Revenge of Macromania. 



by Karl E. Wiegers 



Last month's Boot Camp ended with a homework assign- 
ment. I asked you to write an INPUT macro that would read 
a string up to a specified maximum number of characters 
from a particular IOCS, and store the string at a particular 
address in RAM. Don't bother trying to tell me why you 
didn't get around to doing this assignment. I used to teach 
organic chemistry to pre-med students at the University of 
Illinois— I've heard all the excuses. I'll just assume you did 
do it, and we'll proceed from there. 

Today I'll present my version of the INPUT macro, along 
with other macros and subroutines that do some pretty neat 
things. Would you believe a delay subroutine to do noth- 
ing for a precise period of time? How about a FOR/NEXT 
loop implementation in assembly language? Or a MOVE 
macro to copy a block of data of any length from one ad- 
dress to another? All this, and more, lies in the next few 
pages. 

Perhaps you're among the readers who don't own a mac- 
ro assembler. You fHp to Boot Camp each month and groan, 
"When is this clown going to quit with the macros already 
and get back to something I can use?" Please don't feel left 
out. 

Virtually everything we've discussed during the foray into 
macroland is useful to you, anyway. Remember, a macro 
is just a shorthand way to write assembly programs. You 
can adapt all the macros I've presented just by expanding 
the source code yourself when writing a program where you 
would otherwise invoke a macro. In fact, since you'll know 
exactly what your parameters are, you can skip all the con- 
ditional assembly (.IF/.ELSE/.ENDIF) code I've built into the 
general macro formats. And, of course, you can use the 
subroutines exactly as I've written them. 

Philosophy of the month. 

How about another programming philosophy discourse: 



efficiency. I think of three kinds of programming efficien- 
cy: the time I spend developing the program; size of the 
resulting object code; and execution speed. Programming 
in assembly is a great way to come up with fast, compact 
object code. However, the act of designing and writing the 
source code is a lot slower than it is if you're using a high- 
level language like BASIC. 

To make your programming more efficient, use good tools 
— like a fast assembler, a RAMdisk, macros and common 
subroutines. But all is still not roses. These shortcuts exact 
a toll in both size and speed. Consider the way we .IN- 
CLUDE the subroutine library file we've been constructing, 
SUBS. LIB. Those subroutines get assembled into object 
code whether or not the main program calls any of them. 
This both slows the assembly process as the file is read and 
results in larger object files than we'd get if only the subrou- 
tines actually called were included in the source code. 

Similarly, many of our macros are written to be flexible, 
handling a variety of parameters and situations. This some- 
times results in more assembled instructions than does in- 
dividually coding each instance. And more instructions to 
be executed mean slightly longer execution times. In es- 
sence, we've been building our own "high-level" language, 
with the accompanying benefits and drawbacks. 

Are these compromises worth it? Assembly programs 
generally run fast enough that a few extra instructions don't 
do any harm. Our computers have a lot more RAM now than 
they used to, so a longer object file doesn't hurt much, ei- 
ther. And these shortcuts save a lot of your time. I usually 
prefer to program for ease of comprehension and maintaina- 
bility, rather than for fastest or shortest code. 

Format reprise. 

Just one more thing before we get to the business at hand. 
Last month, I showed how to format a disk using an XIO 
macro. The CIO command value I mentioned, $FE, will ac- 
tually format a disk in an Atari 1050 disk drive in enhanced- 
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density mode. Drives other than the 1050 automatically for- 
mat in single density with this command. If you're using 
a 1050 drive and want to format in single density, use com- 
mand value $FD instead. This is equivalent to option P at 
the DOS 2.5 menu, "Format Single." 
New macros. 

Please merge Listing 1 with the MACRO. LIB file you've 
been building over the past few months. Be sure to use the 
line numbers shown. Listing 1 contains a few more equates 
for some variables used in the new macros. Notice that I 
am using four zero-page locations ($CB-$CE); these bytes 
are free for your own needs, except when using the MOVE 
macro. Also, bytes $0681-$0687 ai-e used by the FOR/NEXT 
and MOVE macros. MAC/65 gobbles up locations $0600- 
$067F, so I might as well keep consuming page 6 for these 
work variables. 

Lines 845-915 of Listing 1 modify our existing POKE mac- 
ro to accept either an address or a value as parameter 2. 
If parameter 2 is smaller than 256, it's assumed to be a val- 
ue. Otherwise, it's assumed to be an address, and the con- 
tents of that address are copied into the address specified 
in parameter 1. 

The rest of Listing 1 is the code for eight new macros: 
INPUT, PAUSE, ADD, SUBTl^CT, DPOKE, FOR, NEXT 
and MOVE. Listing 2 contains two new subroutines that 
should be added to your SUBS. LIB file. 

Let's start very simply. Lines 1970-2020 of Listing 2 de- 
fine a subroutine called CLS, for clear screen. If you want 
to completely erase a graphics screen, use a JSR CLS in- 
struction. This simply prints character 125, the ATASCII 
clear screen character, on lOCB 0. The BASIC equivalent 
is: PRINT CHR$(125). 

Readin'. 

Last month we talked about writin', so this time we'll do 
some readin'. My INPUT macro lives in Lines 3590-3950 
of Listing 1. It takes three parameters: the lOCB number; 
the buffer address where the string read is to be stored; and 
the number of bytes to be read. Parameter 3 is optional. If 
absent, the buffer length is set to 255 bytes, although an 
end-of-line character (EOL) will also terminate the input 
step. The CIO conuiiand is GETREC (Lines 3760-3770). The 
rest of the macro just involves the familiar CIO activities 
of pointing to the buffer address (Lines 3780-3810] and set- 
ting the buffer length (Lines 3820-3920). 

The easiest way to use INPUT is to reserve space for the 
string to be input, with a statement such as: FILENAME 
.DS 17, which will reserve 17 bytes at address FILENAME. 
To let the user enter a filename at the keyboard, then, you'd 
use a statement like: INPUT 0, FILENAME, 17. There's an- 
other example in Listing 3, which is a sample program to 
exercise a bunch of our macros. 

Take a break. 

Sometimes you feel like giving the computer (or maybe 
its user) a breather, simply doing nothing for a period of 
time. In BASIC, the empty FOR/NEXT loop is often em- 
ployed. Four hmidred iterations consume about a second 
of time, but this is only approximate. The macro called 
PAUSE (Lines 3990-4290 of Listing 1) lets you suspend ex- 
ecution of your program for a precise period of time. 



PAUSE takes one parameter, the number of "jiffies" that 
you want to wait before continuing execution of the pro- 
gram. A jiffy is l/60th of a second, and the Atari has an 
internal real-time clock that increments a particular byte 
every jiffy. This is part of the system housekeeping per- 
formed dm-ing every vertical blank period, which you no 
doubt recall occurs sixty times per second. The PAUSE pa- 
rameter can be either a value or an address (not zero-page). 

The real-time clock is located in bytes $12-$14. The equate 
for RTCLOK is in the first line in Listing 1. Address $14 
(RTCLOK-F2) is the one that gets incremented every jiffy. 
After 255 jiffies (about 4.27 seconds), RTCLOK + 2 is reset 
to and RTCLOK+1 is incremented. After 65,535 jiffies (18.2 
minutes), RTCLOK -hi is reset to and RTCLOK is in- 
cremented. The PAUSE macro uses only RTCLOK + 2, so 
you're limited to a delay of just over four seconds, precise 
to l/60th of a second. To wait longer, you could call PAUSE 
several times in a row. If you're more ambitious, modify 
PAUSE to accept a 2-byte parameter, and you could then 
set wait times up to 18.2 minutes. 

PAUSE simply stores the desired number of jiffies to wait 
at address ©TIMER. Lines 4180-4190 use the contents of 
an address as the delay time, and Lines 4210-4220 use a 
value. RTCLOK+2 must be initialized to (Lines 4150-4160). 
Then a loop simply compares RTCLOCK+2 to ©TIMER un- 
til they match. Of course, the computer really isn't doing 
"nothing" during the pause; computers don't know how to 
do nothing. It's frantically looping as fast as it can through 
Lines 4240-4270. 

'Rithmetic. 

Let's retm-n to the roots of computing: mathematical oper- 
ations. Lines 4330-4660 of Listing 1 define a macro called 
ADD. To preserve the symmetry of the universe (can you 
guess I'm a Libra?], SUBTRACT is found immediately fol- 
lowing ADD. 

Both macros need two parameters. The first is the ad- 
dress of a 2-byte number; the second, either a value or an- 
other address. In ADD, the contents of the first address are 
added to either the value or contents of the second address; 
the resulting 2-byte number is stored back at the first ad- 
dress. More concisely, %l = %l + %2. SUBTRACT can be 
summarized as %l = %l-%2. The algorithms are straight- 
forward 2-byte binary arithmetic, processing first the low 
bytes and then the high bytes of each pair of operands. No- 
tice that the carry flag is cleared (CLC) before the additions, 
and it's set (SEC) before a subtraction. 

These macros can be very handy when working with cus- 
tomized mixed graphics mode displays. If you turn back to 
Boot Camp in issue 44, you'll recall that, to write in differ- 
ent graphics mode segments of the screen, we treated each 
segment as a separate little screen. We changed the point- 
er to the beginning of screen RAM (SAVMSC, $58 and $59) 
to point at the begirming of the RAM used by each segment. 
To accomplish this, we figured out how many bytes of 
screen RAM were consumed by the first segment and add- 
ed that number to the contents of SAVMSC. SAVMSC then 
pointed to the second segment, and POSITION and PRINT 
statements were relative to the upper left corner of that seg- 
ment. The ADD macro is perfect for such operations. 
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Conversely, if you write in, say, the fourth segment of a 
mixed-mode display and then need to write in the second 
segment, you can use SUBTRACT to reset SAVMSC to 
where you need it. If this discussion leaves you baffled, 
please review Lines 980-1210 of the listing in issue 44's Boot 
Camp. 

Poke two, they're small. 

A short macro called DPOKE [for double poke) is in Lines 
5070-5250 of Listing 1. DPOKE is similar to POKE, except 
the first parameter is a 2-byte address and the second is 
a 2-byte value. DPOKE lets you store a value greater than 
255 in the usual low/high format. 

It would be nice to let parameter 2 take either a value or 
an address, but how could we tell them apart? In macros 
like POKE, if the parameter is larger than 255, we can safely 
conclude that it's an address. Things are not so simple in 
DPOKE. Actually, if you find it more useful to have DPOKE 
expect parameter 2 to be an address, just rewrite it. Or you 
could have two versions, say, DPOKEA and DPOKEV. Or 
you could add a third parameter, a "flag" to tell the macro 
if parameter 2 is a value or an address. The possibilities 
are endless; the decision is yours. 

Loop-the-loop. 

Ah, I like this one! I was very smug when I figured out 
how to simulate (at least in a simple way) the useful FOR/ 
NEXT construct from BASIC. Lines 5290-5590 of Listing 
1 are the FOR macro, and Lines 5630-5910 are the NEXT 
macro. Let's review how FOR/NEXT works. 

Sample FOR/NEXT statements are: FOR 1=4 TO 12 STEP 
2/NEXT I. The FOR statement defines an "index variable" 
f/) that will be changed systematically each time we go 
through the loop. It also states the initial (4) and final (12) 
values of the index variable, and an optional increment (2) 
by which the index variable is changed on each iteration. 
If STEP is omitted, it's assumed to be 1. In BASIC, the ini- 
tial, final and increment values can all be variables. 

When a NEXT statement is encountered, the index vari- 
able is changed by the value of the increment. The result 
is compared to the final value. If the index variable is greater 
than the final value (for a loop in which it's increasing), the 
loop is terminated. Otherwise, the statement immediately 
following the FOR statement is executed again, and the 
process continues. 

My FOR/NEXT macros simulate the BASIC situation 
reasonably well, with some restrictions. First, you can't have 
nested FOR/NEXT loops (that is, a loop having index vari- 
able / within a loop having index variable I]. Also, I've re- 
served only 1 byte for the value of the index variable, 
limiting it to values from through 255. The equates used 
by my FOR/NEXT macros are in Lines 351-354 of Listing 
1. These are 1-byte integers. A statement like FOR J = 35.4 
TO 114.6 STEP 0.2 is perfectly legal in BASIC, but not here. 
Also, as written, the FOR macro accepts only values for all 
parameters except the index variable, which is an address. 
On the plus side, my FOR/NEXT macros do permit loops 
with negative increments. You could write more elaborate 
macros to overcome the limitations I mentioned, but you'll 
probably find that even these simple ones are very useful. 

Now for the nitty-gritty. The FOR macro is invoked with 



either three or four parameters. Parameter 1 is the name 
of the index variable (address). Parameter 2 is the initial 
index value, and parameter 3 is the final value. The option- 
al parameter 4 is the increment. If absent, an increment of 
1 is assumed, just as in BASIC. Lines 5420-5430 load the 
index variable with the initial value, and Lines 5440-5450 
stash the final value at address ENDLOOP ($0682). Lines 
5460-5520 store the increment value at address INCLOOP 
($0683), based on the number of parameters supphed. 

It would be nice to remember where the first executable 
statement in the loop is, so we can go back to the right place 
when the NEXT macro is executed. The 2 bytes at LOOP- 
ADD ($0684) are used to store the address where code in 
the loop actually begins. If you think about it, you'll real- 
ize that this address is 1 byte past the end of the object code 
generated by the FOR macro. I called this ©LOOPSTART 
(following my practice of beginning label names inside mac- 
ros with an "at" sign). 

The NOP instruction at address ©LOOPSTART (Line 
5580) means "no operation"; don't do anything, just con- 
tinue on with the next instruction. I'm simply using this 
as a placeholder, and it's actually the first instruction in- 
side the loop. Lines 5540-5570 store the actual address of 
©LOOPSTART in LOOPADD, which will be used by the 
NEXT macro. Naturally, the address of ©LOOPSTART will 
be different every time the macro is invoked within a par- 
ticular program, 

The NEXT macro is responsible for changing the index 
variable, seeing if we're finished yet, and going back to 
©LOOPSTART to run through the loop again if it's not time 
to quit. 

NEXT only needs one parameter, the name of the index 
variable. Lines 5740-5750 check to see if the increment is 
positive or negative. If positive. Line 5760 adds the incre- 
ment value to the current value of the index variable, and 
Line 5770 compares the sum to the final value in ENDLOOP 
The result of this comparison sets one or more flags in the 
6502's processor status register; more about that later. Based 
on the results of the comparison, we either save the new 
value of the index variable and go back to the beginning 
of the loop (Lines 5810-5820), or terminate the whole proc- 
ess by branching to the last line of the macro, ©LOOP- 
DONE. 

Lines 5830-5880 handle the case in which the increment 
is negative. We can still add the increment to the current 
value, because adding a negative number is the same as sub- 
tracting. 

The JMP instructions in Lines 5820 and 5880 look a lit- 
tle funny. Rather than using the normal absolute address- 
ing, this is an "indirect absolute addressing" mode. JMP 
is the only 6502 operation that uses this mode. The JMP 
(LOOPADD) syntax means to jump to the address stored 
at address LOOPADD and continue execution. Contrast this 
with the usual JMP SOMEWHERE format, which means 
to jump to address SOMEWHERE and continue execution. 
Now you see why FOR stored the address of the first in- 
struction in the loop in LOOPADD. NEXT refers to the con- 
tents of LOOPADD when deciding where to jump if it wants 
to go through the loop again. 
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Let's examine the comparison operation. Remember the 
processor status register in the 6502? That's the register with 
7 bits that indicate, among other things, whether tlie result 
of the last operation was or negative, and whether it 
caused a carry operation. The compare instructions, such 
as CMP 45, affect the 0, negative and carry flags. 

Table 1 shows how these flags appear, based on whether 
(for a CMP operation) the contents of the accumulator are 
smaller than the operand (45 in the example above), equal 
to it, or greater than the operand. The results are the same 
for CPY and CPX operations. 

Table 1. 
Flags set by compare operations: CMP operand. 



Situation Negative Zero Carry 

A < operand 1 

A = operand 1 1 

A > operand 1 



You can use the branch instructions to control the flow 
of program execution, based on the results of a comparison. 
BEQ and BNE look at the zero flag (cleared or set, respec- 
tively), BPL and BMI use the negative flag (cleared or set), 
and BCC and BCS examine the cai-ry flag (cleared or set). 
Since all three flags are affected, we might need a couple 
of branch operations in sequence, to get where we want to go. 

Lines 5770-5790 of Listing 1 provide an illustration. We're 
comparing the contents of the accumulator (A) with the con- 
tents of ENDLOOP. If they're equal or if A is smaller than 
ENDLOOP we want to loop again (go to ©RELOOP). Other- 
wise we're done (go to ©LOOPDONE). Table 1 shows that 
the carry flag is clear only if A is less than ENDLOOP, so 
we must use a second test to distinguish between A equal- 
ling ENDLOOP and A being greater than ENDLOOP 

In English, Line 5780 asks, "Does A equal ENDLOOP (is 
the zero flag set)?" If yes, go to @RELOOP If no. Line 5790 
asks, "Is A greater than ENDLOOP (is the carry flag set)?" 
If yes, go to ©LOOPDONE. If no, fall through to ©RELOOP 
You'll have to use the old noodle to test these flags in the 
correct sequence when making such comparisons. 

Head 'em out, move 'em up. 

That's what my girlfriend said when we visited my home 
state of Idaho, trying to get into the spirit of the Old West. 
Close enough. Our final macro for today is called MOVE, 
and It lives in Lines 5950-6170 of Listing 1. Actually the 
MOVE macro just handles the setup; the rather lengthy 
MOVESUB subroutine in Listing 2 does the hard part. The 
MOVE routines are great for such operations as copying the 
ROM character set into RAJVI or moving players vertically. 

MOVE is used to transfer (copy, really) a block of bytes 
of any length from one part of memory (RAM or ROM) to 
another (RAM, obviously). The ranges can overlap, but of 
course, you'll overwrite part of the source range if they do. 
Three parameters are needed: the starting address of the 
block to be copied; the address to which it is to be copied; 
and the number of bytes to transfer, a value. The MOVE mac- 
ro just loads some work registers with tliese parameters, us- 
ing the DPOKE macro, and calls MOVESUB. The equates 
for the work registers are at the top of Listing 1. 



MOVESUB first determines if the destination address is 
at a higher or lower address in memory than the source, us- 
ing Lines 2100-2150 in Listing 2. This is important. If mov- 
ing data to a lower address, you want to begin with the first 
byte in the soui'ce block (lowest address). However, if mov- 
ing to a higher address, move the highest byte in the range 
first. This prevents you from overwriting data in the som'ce 
block in case the ranges overlap. The routine to move data 
to a higher address is in Lines 2300-2590, and the copying 
to a lower address takes place in Lines 2630-2930. 

These routines are a Utile complicated. To handle any ar- 
bitrary number of bytes, we need a 2-byte register (I called 
it HOWMANY) to store the number of bytes to move. When 
moving to higher addresses, I first move the number of bytes 
indicated by the low-byte of HOWMANY. Then I use anoth- 
er loop to transfer the number of pages (256 bytes each) in- 
dicated by the high-byte of HOWMANY. Conversely, I move 
data in one-page blocks first when shifting to lower addresses 
(Lines 2710-2800), and wrap up the partial page, if any, in 
Lines 2810-2930. You might want to walk through this code 
and convince yourself it makes sense. 

A demo program. 

So far, I've just given you a bunch of tools and some 
thoughts on how to use them. The program in Listing 3 ap- 
plies most of these new routines — and some old ones — to 
give you an idea of how easy it is to write assembly programs 
using all these shortcuts. Experiment! H 

Despite having a Ph.D. in organic chemistry, KarJ Wiegers 
earns a living writing appJications software for photograph- 
ic research at Eastman Kodak Company, mostly on an IBM 
mainframe. He is also interested in educational applications 
of Atari 8-bit. Atari ST and Apple II computers. 



Listing 1. 
Assembly listing. 

RTCLOK = Sl2 
MOUEFROM = $CB 
MOUETO = $CD 
I = $8681 
ENDLOOP = $0682 
INCLOOP = $0683 
LOOPflDD = $0684 
HOWMANY = $0686 
;or address 

.IF X2>256 

LDfl Y.2 

STft Y.l 

.ELSE 

.ENDIF 



0229 
0241 
0242 
0351 
0352 
0353 
0354 
0355 
0845 
0892 
0894 
0896 
0898 
0915 
3560 
3578 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3760 
3710 



KXXXXKKXXKKKXXKKKKKKKMXXXXKKKKX 



INPUT Macro 

Usage: INPUT lOCB, address, length 

'lOCB' is the lOCB nunber to use 
'address' is a label or actual 

buffer address where the input 

string is to be stored 
'length' is the nuwber of bytes 

to be input - if Missing, then 

length is set to 255 bytes 

.MACRO INPUT 
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3720 


.IF >i;o<2 .OR >:o>3 


4510 


ADC ny.z 


3730 


.ERROR "Error in 


INPUT" 


4520 


STA Y.l 


3740 


.ELSE 




4530 


BCC GSKIPADD 


3750 


LDH «X1K16 




4540 


INC Xi+1 


3760 


LDfl ttGETREC 




4550 


GSKIPADD 


3770 


STfl ICC0M,X 




4560 


.ELSE 


3780 


LDA « <Y.Z 




4570 


CLC 


3750 


STft ICBAL,X 




4580 


LDA Y.l. 


3800 


LDfl » y/.z 




4590 


ADC Y.Z 


3810 


STft ICBftH,X 




4608 


STA Y.y 


3820 


.IF >^0 = 2 




4610 


LDA Xl+i 


3830 


LDfl »255 




4620 


ADC Y.Z*i. 


3840 


5Tfl ICBLL,X 




4630 


STA JCl+l 


3850 


LDA O0 




4640 


.ENDIF 


3860 


STfl ICBLH,X 




4650 


.ENDIF 


3870 


.EL5E 




4660 


.ENDM 


3880 


LDft « <Y.Z 




4670 




3890 


STfl ICBLL.X 




4680 
4690 




3900 


m^ I n ^L. \J kr Lv ft^ ^ ■ I 

LDfl « >J^3 






3910 


STft ICBLH,X 




4700 


;SUBTRACT nacro 


3920 


.ENDIF 




4710 




3930 


J5R CIOM 




4720 


lUsage: SUBTRACT first, second 


3940 


.ENDIF 




4730 




3950 


.ENDM 




4740 


1 'first' is an address of a two- 


3960 
3970 




r'kf^Tifxxvr^^u-^^i^ 


4750 


;byte nunber 




4760 


; 'second" is either the address 


3980 






4770 


lof a two-byte nunber, or a value 


3990 


;PAU5E nacro 




4780 




4000 






4790 


: first = first - second 


4010 


iUsage: PAUSE jiffies 




4800 




4020 






4810 


.MACRO SUBTRACT 


4030 


; 'jiffies' is the nuMber of 


4820 


.IF X0<>2 


4040 


;jiffies (1/60 secJ to 


pause, a 


4830 


■ ERROR "Error in SUBTRACT"" 


4050 


;value up to 255, or an address 


4840 


■ ELSE 


4060 






4850 


.IF Y.Z<Z5& 


4070 


.MACRO PAUSE 




4860 


SEC 


4080 


.IF JCOOl 




4870 


LDA Y.l. 


4090 


.ERROR "Error in 


PAUSE" 


4880 


SBC ttY.2 


4100 


.ELSE 




4890 


STA Y.l 


4110 


CLC 




4900 


BCS GSKIPSUB 


4120 


BCC eSKIPPAUSE 




4910 


DEC Y.1 + 1 


4130 ( 


2TIMER .BYTE 




4920 eSKIPSUB 


4140 1 


2SKIPPAUSE 




4930 


.ELSE 


4150 


LDA SO 




4940 


SEC 


4160 


STA RTCLOK+2 




4950 


LDA Y.l 


4170 


.IF >^1>255 




4960 


SBC Y.Z 


4180 


LDA Y.l. 




4970 


STA Y.i. 


4190 


STA QTIMER 




4980 


LDA v:i+i 


4200 


.ELSE 




4990 


SBC >^2 + l 


4210 


LDA » <X1 




5000 


STA Y.l + L 


4220 


STA GTIMER 




5010 


.ENDIF 


4230 


.ENDIF 




5020 


■ENDIF 


4240 ( 


JDELAV 




5030 


.ENDM 


4250 


LDA RTCLOK+2 




5040 , 




4260 
4270 


CMP GTIMER 
BNE GDELAY 




5050 J 
5060 ; 








4280 


.ENDIF 




5070 ; 


DPOKE nacro 


4290 


.ENDM 




5080 ; 




4300 , 
4310 J 






5090 ; 


Usage: DPOKE to,fron 




5100 J 




4320 , 






5110 ; 


"to" is a 2-byte destination 


4330 J 


ADD nacro 




5120 ; 


address 


4340 , 






5130 ; 


'fron' is source value 10-65535) 


4350 J 


Usage: ADD first, second 


5140 ; 




4360 , 






5150 ; 




4370 , 


'first' is an address 


of a two- 


5160 


.MACRO DPOKE 


4380 J 


byte nunber 




5170 


■IF X0<>2 


4390 J 


'second" is either the 


address 


5180 


.ERROR "Error in DPOKE" 


4400 , 


of a two-byte nunber. 


or a value 


5190 


■ ELSE 


4410 , 






5200 


LDA « <Y.2 


4420 , 


first = first + second 




5210 


STA XI 


4430 , 






5220 


LDA « >Y.Z 


4440 


.MACRO ADD 




5230 


STA Y.S. + 1 


4450 


.IF X0<>2 




5240 


■EMDIF 


4460 


■ERROR "Error in 


ADD" 


5250 


.ENDM 


4470 


.ELSE 




5260 ; 




4480 


.IF X2<256 




5270 ; 
5280 i 




4490 


CLC 






4500 

ANALOG C 


LDA XI 
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5290 

5306 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5350 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 



FOR Macro 

Usage! FOR label, start, stop, inc 

'label' is byte to hold index 
'start' is initial index value 
'stop' is final index value 
'inc' is optional step increwent 

.MACRO FOR 

.IF >:0<3 .OR X0>4 
.ERROR "Error in FOR" 
.ELSE 
LDfi « <y.2 
5Tfl y.i 
LDft « <>'.3 
STfl ENDLOOP 
.IF Y.Q=Z 
LDft «1 
5Tfl INCLOOP 
.ELSE 
LDft n <^4 
STfl INCLOOP 
.EHDIF 
.ENDIF 
LDft tt <eLOOPSTflRT 
STft LOOPftDD 
LDft n >eLOOPSTftRT 
STft LOOPADD+i 
QLOOPSTftRT MOP 
.ENDM 

KXKXKKKKKKKMXXXXXKKXXKXXXKXKXKM 



MEXT Macro 

Usage: NEXT label 

•label' is byte holding index 

.MftCRO NEXT 
.IF y.QOl 

.ERROR "Error in NEXT" 
.ELSE 
CLC 

LDft INCLOOP 
BMI GLOOPDOWN 

ADC y.i. 

CMP ENDLOOP 
BEQ GRELOOP 
BCS GLOOPDONE 
GRELOOP 

STA y.i. 

JMP (LOOPADD) 
GLOOPDOHN 

ADC y.i. 

CMP ENDLOOP 
BMI GLOOPDONE 

STA y.i. 

JMP (LOOPADD) 
GLOOPDONE 

.ENDIF 
.ENDM 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



MOVE Macro 

usage: MOVE froM, to, length 

' froM' is starting address of 

block to be Moved 
'to' is starting address where 

block is to be copied to 
'length' is nuMber of bytes to 

be copied (value, not address! 

calls subroutine MOVESUB 



6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 



1940 

1950 

I960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 



.MACRO MOUE 

.IF X0<>3 

.ERROR "Error in MOUE" 

.ELSE 
DPOKE M0UEFR0M,>^1 
DPOKE M0UET0,X2 
DPOKE H0WMANV,X3 

JSR MOUESUB 

.ENDIF 
■ ENDM 



Listing 2. 
Assembly listing. 

XXXXXXXXKXXXXXKXXXXXXXXXXXXXXXX 



CLS (clear screen) subroutine 

CL5 

PRINT 0,CLEARSCH 
RTS 
CLEARSCR .BYTE 125, EOL 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



sub. to Move a block of data 
called by MOUE Macro 

MOUESUB 

SEC ;find out if 

LDA MOUETO jMoving data up 
SBC MOUEFROM ;or down in RAM 
LDft MOUETO+1 
SBC MOUEFROM+1 
BMI MOUEDOMN 

jMove to higher RftM address 

CLC jstart with 

LDft MOUEFROM+1 J byte having 

ADC HOWMANY+1 ; highest 

STA MOUEFROM+i ; address 

CLC 

LDA MOUETO+1 

ADC HOMMANY+1 

STA MOUETO+1 

jMove block With < 256 bytes 

STARTUP 

LDY HOWMANY ; i f low byte Of 

BEQ FINISHUP ;HOWMANY=0, this 

LDX HOWMANY ; part is done 
PARTIALl 

DEY 

LDA (MOUEFROM), Y 

STA (MOUETO), Y 

DEX 

BNE PARTIALl 

jMove reMainder in 1-page blocks 

FINISHUP 

DEC MOUEFROM+1 

DEC MOUETO+1 

DEC HOWMANY+i ;when high byte 

BPL PAGEUP JOf HOWMANY^O 

RTS ;then all done 

PAGEUP 

LDY »0 ;use Y as index, 
LDX ttO ;X as counter 

NEXTUP 
DEY 
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2540 
2550 
2560 
2570 
2580 
2590 
2600 
26J.0 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2908 
2910 
2920 
2930 
2940 



0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
8400 



LDA CMOUEFRDHJjV 

STft CMOyETO),Y 

INK 

BNE NEXTUP 

CLC 

BCC FINISHUP 

;Move to lower RAH address 

HOVEDOMN 

LDA HOHMftHY+1 
BEQ FINI5HD0HN 

LDY no 

jstart with lowest address. Move 
;data in l-page blocks 

NEXTDOWN 

LDA {M0VEFR0M),Y 

STA tM0UET0),Y 

INY 

BNiE NEXTDOHN 

IMC MOUEFROM+l 

INC MOUETO+1 

DEC HOMHANY+1 

CLC 

BCC MOUEDONN 
FINISHDOHN 

LI>A HOMMANY 

BEQ DONEDOMN 

; finish With block Of < 256 bytes 

PARTIAL2 

LDA tMOVEFROM),Y 

STA CM0yET0J,Y 

IMY 

CPY HONMANY 

BNE PARTIAL2 
DONEDOMN 

RT5 



Listing 3. 
Assembly listing. 

Hacro Horkout Exanple 
Karl E. Wiegers 

.OPT OBJ, HO LI5T 

pull in Macro definitions 
and equates 

.INCLUDE ttD8: MACRO. LIB 

soMe equates we need 

TEMP = SCB 
SDLSTL = $0230 



XKKXKMICMKKKKKKXKKMKKlCKKMKKKKmCK 

MAIN PROGRAM START5 HERE 
XXXXXKKXXKXXXXXXXKXXKXKXKXKKKXX 



«= $5800 



Clear screen, set screen colors 
ask you to enter your naMe 



J5R CLS 
SETCOLOR 2,12,6 
SETCOLOR 1,0,0 
POSITION 8,5 
PRINT PROMPT 



0410 
0420 
0430 
8440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
8568 
8578 
8586 
8598 
8688 
0618 
0620 
8638 
8648 
8658 
8668 
8678 
8688 
8698 
8788 
8718 
8728 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0888 
0810 
0820 
0830 
8848 
0858 
8860 
0870 
0880 
0890 
0900 
0910 
0928 
0930 
0940 
0950 



POSITION 14,7 
INPUT 8, NAME, 10 



igo to Graphics 2 screen, change 
;two lines to Graphics l by 
[finding and changing display 
Hist 



GRAPHICS 2+16 
POKE TEMP, SDLSTL 
POKE TEMP+1,SDL5TL+1 

LDA tt6 

LDY «7 

STA tTEMPJ,Y 

IMY 

IMY 

STA tTEMPJ,Y 



write soMe stuff on the screen 
change colors of your naMe 
using a loop 



POSITION 4,2 
PRINT 6,LINE1 
POSITION 5,4 
PRINT e,LINE2 
POSITION 5,6 
PRINT 6, NAME 
POKE COLORO,e 
FOR 1,0,254 
INC COLORO 
PAUSE 3 
NEXT I 
END JMP END 



text Strings 



PROMPT .BYTE "Please enter " 
.BYTE "your naMe:",EOL 

LINEl .BYTE "welCOMe tO",E0L 

LINE2 .BYTE "boot caMp",EOL 

NAME .DS 10 

.BYTE EOL 



;bring in subroutines 



.INCLUDE ttD8:SUBS.LIB 



for the 

Business 

Professional 



\oint-of'Sale Systems 

[ Bring Business to ttie Leading Edge of Higti Technology 

' Efficient Electronic Cash Registers 

\ Custom Coior Graptiics Toucti Screens 

\ Bar Code Pleaders and Printers 

: Inventory Control with Product ll/lovement Analysis 

, Speciality MultiiJser/fi/lultiTasking Systems 

I Up-To-l[/linute Financial Statements 

: Beckemeyer Development Tools 415 452 1129 ext. 701 
\ 478 Santa Clara Ave Oakland, CA 94610 
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IMfe mron't Be UNDERSOLD 

Isl In Price, Isl In Support, Isl In Warranty 

15 P ay Free Trial • 90 Pay Immediate Replacement Policy • Free Cata logs 

Call before /ou order, our prices may be lower * All sale prices expire 09-30-87 



80 Column Printer* SVi" Letter Size 



Big Blue Printer 




Dot Matrix 

Heat Transfer 

Upper Case 

Lower Case 

Underline 

Enlarged 

Affordable 

Plus More 



No One Sells This 
Printer For Less! 



Sole $90 

List $199 ^Bi J^ 



95 



(Add $7.50 Shipping*) 



This printer was made by Canon® tor IBM. The Big Blue printer comes ready to hook up to the serial port of the 
IBM® PC jr, XT, AT & Compatibles. Plus with our low cost adapter cables you can connect this printer to the 
Apple® II, He, lie and Compatibles, Atari® computers. Commodore® 64, 128, SX-64, Vic 20, Plus 4, and more. 



RS-232 Adapter - Adapter for IBM® PC, AT, XT & Apple® II series RS-232 port. (Specify male or female). . . List $49.95 Sale $19.95 

Applet) lie & Laser 128 Interface - With printer driver program for graphics and text List $49.95 Sale $19.95 

lntelll!;ent Commodore® Interface - Prints graphics and text. Use Print Shop and more List $49.95 Sale $19.95 

Intelligent Atari® Interface - (Excludes Atari 1200) Prints graphics and text. Use Print Shop and more List $49.95 Sale $19.95 

Paper (2 Rolls) List $19.95 Sale $ 5.95 Single Siieet Paper (Qty. 500) List $29.95 Sale $12.95 

^_^liM^Appl£^aiionX^ are regisiercJ lrademark> of InlrrnalKinal Uusitieti Machines, Apple Compuler. Canon Inc. Commodore Business Machines, Alari Inc. & Video Technologies Respcclivcly. 



SVa" Floppy Disk Sale 

Double-Sided • Double-Density • 100% Certified 



24* each 



*1 Box of 100 — $24.00 
(24' each) 

Paper Economy Sleeves (1 (X)) — $5.00 



Hi-Speed (160-1 80 CPS) Printer 



NLQ-180 Printer 




Near Letter 
Quality 



Lifetime 
Warranty 



No One Sells This 
Printer For Less! 



Sale$ 



List $499 



179 



95 



(Add $10.00 Shipping*) 



Near Letter Quality Selectable From Front Panel Controls • High Speed Dot Matrix 
• Letter Quality Modes • 8K Buffer frees up computer 4-times faster • Super Graphics 
• Pica, Elite, Italics, Condensed • Business or Personal • Tractor/Friction • 15 Day Free Trial 
• Lifetime Warranty on Print Head* • 6 Month Immediate Replacement Policy • 



COMPUTER DIRECT (A Division of PROTECTO) 

22292 N. Pepper Rd., Barrington, IL. 60010 

312/382-5050 or 312/382-5244 

We Love Our Customers 



' Illinois residents odd 6'/i% sales tax. All orders must be in U.S. Dollars. 
We ship to all points in the U.S., CANADA, PUERTO RICO & APO-FPO. 
Please coll for charges outside continental U.S. or C.O.D. MAIL ORDERS 
enclose cashier check, money order or personol check. Allow 14 days 
delivery, 2 to 7 for phone orders and 1 day express mail. Prices and 
availability subject to change without notice. (Monitors only shipped in 
continental U.S.) 

VISA ~ MASTERCARD — C.O.D. 
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We Won't Be UNDERSOLD 

15 Day Free Trial * 90 Day Immediate Replacement Policy • prices expire 09-30-87 



SUiclenIs • I eacliers • liiisiiiess • lloiiie lisei's 



Daisy Wheel Printer/Yypevrriter 

• Superb Computer Business Printer Combined With Deluxe Electronic Typewriter • Two 

Machines In One * Superb Letter Quality Correspondence • 12" Extra Large Carriage * Drop in 

Cassette Ribbon • Precision Daisy Wheel Printing • Key In Buffer • Centronics Parallel Port 




Sale$ 



(Add $12. (X) shipping.*) 



159 



9S 



List $299 



Now you can have the advantages of a letter quality Daisy Wheel printer and 
the convenience of a typewriter for one low cost. Use your wordprocessor to 
type the letters, then with just a push of a button, your typewriter can type 
the envelopes. This is a fantastic Printer and a fantastic Typewriter. Every 
student and home business needs this machine. List $299.00 Sale $159.95 



Printer: 

Paper width 
Printing width 
Cassette ribbons 
Correcting tapes 
Line space lever 
Keyboard selector 
Print pitch 



12 inches 

10 inches 

Correctable film, one-time film, and fabric 

Lift-off and cover-up 

0,l,l-'/2,and2 

I and II 

10,12, and 15 



Keyboard: 

Keys/characters 

Automatic carrier return 

Automatic correction 

Automatic underline 

Relocate key 

Tabulation 

Vi back space key 



44/96 
25 ch. 



Electronic Compact Printer/Typevrriter 

Now with ''Spell Check'' 

Supreme Printer/Typewriter With All The Features Of The Above Model Plus More • 

90,000 Word Dictionary • LED Readout Flags Mistakes Before They Reach Print • 

Free 4K Memory Card • Edit 2 To 4 Pages From Typewriter Memory • 

1 Line/240 Character Automatic Correction • Centronics Parallel Port 

Sale $9 A095 

fAHH $19 no shinninr, "^ ^^^^^ Ml MIm IlsfSW 



(Add $12. GO shipping.*) 



Get the edge over classmates, colleagues and competitors with this fantastic 
printer/typewriter with "Spell Checker". With over 90,000 words in its 
dictionary and the capacity to add 510 more of your choice, you may never 
misspell again. No more retyping, when an error is identified, three beeps 
sound. The LED readout has a one line buffer so mistakes are corrected before 
they reach print. This means you're virtually ensured of nothing less than 
perfectly typed letters and documents with no misspellings! Also, you receive a 
free 4K memory card with your purchase. The card equips the typewriter with 
4,000 characters of storage which is equal to approximately 2 to 4 pages of 
typing. Edit right on your tyjjewriter using your LED screen. A $45.00 list value 
for FREE! Fantastic! List $399.00 Sale $249.95 

Manufacturer Warranty Honored by Protecto 







ExtrB Replacements for both: 

Ribbons $9.95 

Daisy Wheels $12.95 

Extra 4K Cards $29.95 

(for document memory storage) 



Call (312) 382-5244 

Top #: Commodore & Atari Bottom #: Apple & IBM 

cii Or (312) 382-5050 





Mai 

CIRCLE #123 ON READER SERVICE CARD 



COMPUKR DIRECT 

22292 N. Pepper Road 
Barrington, IL. 60010 



mre IMf on't Be UNDERSOLD 

Isl In Price, Ist In Support, Ist In Warranty 

15 D ay Free Trial • 90 Pay Immediate Replacement Policy • Free Cata logi 

Call before you order, our prices may be lovwer • All sale prices expire 09-30-87 



Famous Scikfpshu ISitlioniil Brunei 



1 0^^ Printer Sale 

Apple Image Writer Compatible or Parallel Port 

(Please Specify Computer Type) 

Laser 128 • Apple lie • IVIaclntosh • Atari 







$ 



(Add 






100 CPS Draft/20 CPS Near Letter Quality • Pica, Elite, Condensed, Italics • Underline • 
Dot Addressable Graphics • Adjustable Tractor and Friction Feed • Automatic Paper Loading 
Superscript And Subscript • Right and Left Margin Settings • Bold Print, Double Strike • 



Print Method 

Serial impact dot matrix (9 pin) 
Paper Feed 

Adjustable tractor and friction feed 
Ribbon (Life exp.) 

Black: cassette (2.5 million characters) 



Character Sets 

96 ASCII Characters, 
Symbols (include italic font) 

Dimensions 

15.4 (W)x 10.9(D) 
X 4.7(H) inch 



Copies 

2 plus original 
Weight 

Approx. 10.0 lbs 
Character Spacing 

Fixed 



Line Spacing 

1/6, 1/8, 1/72, and 1/216 inch 
Paper feeding Direction 
Bi-directional 
Print Speed 

Draft- 100 CPS NLQ- 20 CPS 



EPSON LX-800 Dot-Matrix Printer 

Epson Performance, Quality and Speed at Our Low Sale Price! 




[BM is the registered trademark of international Business Machines Inc. 



Sale $19500 

(Add $10.00 shipping.*) Hi ^^^ ^B^^ List $399 



• 80 Column Dot Matrix 

• 180 CPS - Draft Speed 

• 30 CPS - NLQ Speed 

• Epson SelecType Front Control Panel 

• Standard Pull Tractor and Automatic 

Single Sheet Loading 

• Standard Parallel Interface Port 

• Compatible With Industry-Standard 

Epson and IBM® Software Codes 



COMPUTER DIRECT (A Division of PROTECTO) 

22292 N. Pepper Rd., Barrington, IL. 60010 

312/382-5050 or 312/382-5244 

We Love Our Customers 



" Illinois residents add 6'/i% sales tax. All orders musJ be in U.S. Dollars. 
We ship to all points in the U.S., CANADA, PUERTO RICO & APO-FPO. 
Please call for charges outside continental U.S. or C.O.D. MAIL ORDERS 
enclose cashier check, money order or personal check. Allow 14 days 
delivery, 2 to 7 for phone orders and 1 day express mail. Prices and 
availability subioct to change without notice. (Monitors only shipped in 
continental U.S.) 

VISA — MASTERCARD — C.O.D. 



CIRCLE »123 ON READER SERVICE CARD 



We Won't Be UNDERSOLD 

15 Day Free Trial • 90 Day Immediate Replacement Policy * Prices Expire 09-30-87 



MIonitor Sale 



1 3" Color 
Monitor 




SaleM59'f 

■ ^W ^^ List $329 



Audio amplifier and speaker • 

Removable non-glare screen • 

Volume control • Plus much more 

(Add $10.00 shipping and handling.*) 



Magnavox TV Tuner 





Salens 9" 

^^^ ^'^ List $130 

TV Tuner with dual UHF/VHF selector switches • 

Goes between your computer and monitor • 

Front panel programmable selection buttons * 

Rabbit ear antenna for VHF viewing • Adapters 

for outdoor antenna or cable * And more 

(Add $3.00 shipping.*) 



3 Va " Double 
Sided/Double 
Density Disks 




Sale 




*9.90 for a Quantity of 10 



Remote Control TV 

Tuner 




Sale «y9»5 

^■^ '(■^ List $180 



Converts monitor or TV into a remote control TV • 

Direct Access to 139 VHF/UHF/Cable channels • 

Illuminated channel detector • Signal booster • 

Sleep timer • Quartx frequency synthesized tuner • 

Individual antenna connections • And more 

(Add $3.00 shipping.*) 



372 " Micro Disks • Works with all VA*' 
Disk Drives * Compact and Easy to 
Handle • Holds More Data Than SVa" 

Floppy (Add $3.00 shipping.*) 




Call 



Call (3 1 2) 382-5244 f^^ti 

Top #: Commodore & Atari Boltom #: Apple & IBM ^^^^\ 

Or (312) 382-5050 



Mail 

CIRCLE «123 ON READER SERVICE CARD 



COMPUTER DIRECT 

22292 N. Pepper Road 
Barrington, IL. 60010 



n Reader comment 



continued from page 6 



featured pinball machine and the second 
is Time Bomb, an arcade-type game. 

Todd P. Rutherford 

Vice President 

Clearstar Softechnologies 

RO. Box 58635, Renton, WA 98058 

Hold on to those 
Learning Phone cartridges. 

I'm writing to let your readers know 
that they needn't trade in their Learning 
Phone cartridges just yet. Although Con- 
trol Data Corporation has discontinued its 
Homelink service, PLATO® home service 
is alive and well at the University of Dela- 
ware. The University's Home Network is 
available at 1200 baud to anyone with a 
PLATO-compatible microcomputer sys- 
tem. For Atari users, compatible systems 
include the Atari 400, 600, 800 and 1200 
series, and all of the XL and XE models. 
The Learning Phone requires the 850 in- 
terface; it will not work with the PR: Con- 
nection. The Atari ST series is not com- 
patible with the Learning Phone; how- 
ever, a Macintosh PLATO Access Disk is 
available, which will work with a 520 or 
1040ST running Macintosh emulation via 
the Magic Sac. 

The Home Network is available only 
through a Delaware phone number, so 
most readers will have to pay long dis- 
tance phone rates. However, our off-peak 
connect time charges are low enough that 
some former Homelink customers have 
found it a reasonable way to keep their 
PLATO access. Home Network is available 
24 hours a day, with the following rate 
schedule: 

8:00 a.m.-5:00 p.m $2.50 hr. 

5:00 p.m.-ll:00 p.m $4.50 hr. 

11:00 p.m.-8:00 a.m $1.00 hr 

There's a one-time only fee of $35. This 
covers the charge of the subscription 
package, which includes appropriate soft- 
ware (the Learning Phone or the Macin- 
tosh PLATO Access Disk) and a Home 
Network User's Manual. 

The Home Network features over 1000 
hours of educational software in over 100 
subject areas. These include accounting, 
biology, business, chemistry, computer 
science, English, finance, fitness, lan- 
guages, Latin, library skills, mathematics, 
nursing, psychology, real estate, statistics, 
and more. The children's catalog lists over 
200 basic math and reading lessons, as 
well as dozens of lessons aimed at in- 
creasing skills in composition, grammar, 
word power and logic. Educational games 
abound on the children's menu. 

For readers with more recreational 



gaming tastes. Home Network offers inter- 
terminal war games, board games, dun- 
geon games and games of choice. 

Local and national PLATO bulletin 
boards are available on a wide range of 
subjects, including microcomputers (note- 
file "Antic" is a national forum especial- 
ly for Atari users), movies, C program- 
ming language, recipes, religion, and 
more. PLATO notefiles are among the 
most sophisticated bulletin boards avail- 
able on any network. Each notefile has 
easy access to notes and responses via ti- 
tle, number, date written or text search. 
And, for truly efficient note reading, users 
can make a list of notefiles and cycle 
through automatically, seeing only those 
notes or responses which have been writ- 
ten since the last time they cycled. 

For more information, readers can call 
(302) 451-8161 and ask to speak to the 
Home Network Representative. 

Although we have subscribers as far 
away as California, Delaware may be too 
far for many readers to call. The Univer- 
sity of Illinois at Champaign-Urbana also 
offers a PLATO home service. To contact 
them, call (217) 333-6210. Florida State 
University offers PLATO home access via 
its "accesslink" service and may be con- 
tacted at (904) 644-2591. 

Sincerely, 

Rae D. Stabosz 

PLATO Services Organization 

University of Delaware 

The Korean conflict. 

I've been a subscriber to your excellent 
magazine for the last three years. I am 
currently stationed overseas and am hav- 
ing problems finding good books and pro- 
grams for the Atari 130XE. Since Apple, 
Commodore and IBM computers are 
cloned here, they are more popular. This 
means that we Atari users must mail or- 
der our software/hardware because our 
military exchange doesn't stock any Atari 
items at all. I know for a fact that other 
exchanges around the world do sell Atari 
products, but in Korea, none. 

I asked the store manager why they 
don't sell Atari-related products. His re- 
ply: "Atari is no longer in business." This 
comment got my goat, and I stated that 
he should get his facts straight; Atari does 
exist and always will exist! 

After I told him the truth about Atari, 
his reply changed to, "Well, that particu- 
lar product isn't popular." Again this an- 
gered me. Why? Because, (a) they stock 
software and hardware for those other 
computers and they've been sitting on the 



shelf for months; (b) if you use the other 
computers, you can go off-base and buy 
the same software (pirated, of course) and 
the documentation at a cheaper price; and 
finally, (c) how can someone say a par- 
ticular item is not popular when they 
haven't stocked that item for over two 
years? Shouldn't they at least give it a try? 

This is my thought: because Korea 
clones these other computers and we are 
in Korea, the exchange is trying to limit 
our choice to help the Korean economy. 
I feel because we members of the military 
are away from the U.S., the exchange 
should market Atari products as much as 
they do those other computer-related 
items. 

I know I can mail order, but it would 
be nice to walk into the store and pur- 
chase a product and take it home the same 
day to use it. Mail orders take four to eight 
weeks to arrive at an APO/FPO. (That's 
one to two months!) And if it's damaged 
you have to wait another four to eight 
weeks to receive a replacement. Luckily, 
I've been fortunate; I purchased my Atari 
130XE and Batteries Included PaperClip 
XE through mail order with the wait, but 
no damage. 

What I'd like to find out is: are other 
military members, who are Atari users, 
experiencing the same problems as we are 
here in Korea? If so, has the store mana- 
ger's response been the same? 

I urge all Atari users to help their fel- 
low men and women in uniform by writ- 
ing to Atari and to any military exchange, 
demanding equal billing for the Atari 
product line. 

Sincerely, 

William L. Carpinona 

Osan AB, Korea 



Send your letters to: 

Reader 
comment 

ANALOG Computing 

P.O. Box 23 
Worcester, MA 01603 
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ST notes 



by D.F. Scott 



Newsworthy happenings in the ST w^orld. 



Mega-pricing. 



The new Mega STs are now being sold 
where 75 percent of all the current 
model STs have reportedly been 
purchased: Europe. What has held up 
distribution of the Megas in the U.S. 
appears to be the search for sales 
channels which meet Atari's new, more 
strict guidelines. A knowledgeable ST 
distributor tells us one of Atari's new 
rules is that distributors will sell the 
Megas on commission. Atari will 
handpick its commissioned Mega 
distributors for the U. S. 

The first semi-official Mega retail 
price list from Atari shows these 
figures: Mega 2, monochrome system 
$1699, color $1899; Mega 4, mono 
$2399, color $2599. Atari stipulates 
these prices are not finalized, and may 
drop within the next few months. 

The British publication Personal 
Computer World quotes Mega 2 and 4 
monochrome system prices as 995 and 
1295 pounds, respectively. Judging 
from mid-August currency exchange 
rates, a comparable U.S. list price for 
the Mega 4 may be as low as $2300. 

In Canada, the Megas are being 
introduced with Atari's first-ever one- 
year manufacturer's warranty. There, 
the Mega 2 and 4 monochrome 
systems list for $2299.95 and $2500 
Canadian, respectively. Dealer 
qualifications in all of North America 
will be very strict, in an effort by 
Atari to improve quality control. 
Sources tell us a Mega dealer must: 

(1) have one ST serviceman attend a 
training seminar in California; 

(2) retain at least one outside 
salesman; and (3) meet a sales quota 
or else be erased from Atari's 
distribution list. 



Such policies may be new to Atari, 
but are quite common for the 
microcomputer sales industry, 
especially where the targeted market is 
businesses which purchase them in 
large quantities as office terminals. 
These businesses aren't fond of 90-day 
warranties. 

At an Atari show in Toronto, we're 
told. Mega ST 2s were on display, 
bearing the new keyboard mechanism 
originally discussed when the concept 
of the Mega was first introduced. The 
new keyboard has been said to have a 
"positive key click" — which, I 
suppose, is the opposite of a "negative 
key click," or typing on baked beans. 
The Mega 2s' pre-installed blitter chips 
were, however, de-installed at the end 
of the show, for unexplained reasons. 

Mega STs have been available to 
registered high-level ST developers in 
the U.S. at a reduced cost. Improved- 
mechanism hard disk drives will also 
be available soon, according to an 
Atari Canada press release. 

Atari's financial foimtain is still 
spewing black ink. For the second 
quarter of '87, sales were up $10 
million over the same quarter in '86, 
totaling $70.7 million. Earnings for 
second-quarter '87 were $13.5 million, 
compared to $9.7 million in '86. Sales 
margins were also up, reaching 21.2 
percent in second-quarter '87 versus 
11.7 percent the previous year. ^ 

The ST's "OS 11." 

Whitesmiths, Ltd., of Westford, 
Massachusetts, is the developer of an 
operating system called Idris. It is 
designed for small- and large-scale 
computers not equipped internally to 
run AT&T's UNIX OS or its derivatives, 
in order that they may run UNIX 



software, as well as function within a 
UNIX-based hardware environment. 
Previously, Whitesmiths has published 
versions of Idris and its cooperative 
sister OS, Co-Idris, for DEC PDP-11 
and VAX mainframes, and the IBM 
PCs. 

The company has been searching for 
a low-cost, 68000-based computer to 
have Idris ported to, in targeting the 
small business market. Wisely, it has 
chosen the ST. 

Idris's programming, utilization and 
file-handling environment is based 
upon a proposed IEEE standard form 
of UNIX, called POSIX. This way, 
future cooperation between UNIX, 
POSIX and Idris systems is assured. 

Idris achieves UNIX-hke 
multitasking on the ST without 
necessarily having to have a standard 
Memory Management Unit installed. It 
does so by reshuffling elements and 
memory blocks — performing block 
memory moves, or blits — so that the 
programs literally come to the program 
comiter, rather than the counter to 
them. 

In a true multitasking environment 
such as UNIX or Idris, several 
programs can be run concurrently. On 
a UNIX system, each program resides 
in a specially-apportioned area of 
memory and stays there. Data is shared 
between programs by streaming them, 
literally, through "pipelines" — reserved 
memory caches. Control is passed 
between programs in order of their 
priority, but that type of control can 
only be achieved with the aid of a real 
Memory Management Unit. Neither 
the PDP-11 nor the Atari ST has one. 

Idris is an operating system which 
doesn't need an MMU to rmi UNIX 
software. It juggles position- 
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independent programs around in 
memory, passing them by the program 
counter like platoons in a 4th of July 
parade past the reviewing stand. 

The OS is not designed, however, to 
work with GEM, nor with the rest of 
TOS; and disks require their own 
specific formats. Nonetheless, 
Whitesmiths is currently collaborating 
with its partner companies worldwide 
— among them. Computer Tools of 
Seattle, Washington, which performed 
the actual ST port of Idris, and 
American Network Development of 
Westwego, Louisiana — to port over top- 
rated UNIX software to the ST. AND, 
for instance, has already released its 
"cash register" package for ST Idris, 
which lists for $49.95 and handles 
inventory, invoicing and billing. 

Idris is currently available for a list 
price of $800, which doesn't seem so 
steep when put in perspective. A 
1040ST with a 20Mb hard disk drive 
and Idris retails for around 
$2500 — considerably less than a 
standard 68000-based UNIX terminal. 
Networking hardware is reportedly 
forthcoming for the 520/1040s. 



Ace Systems and EEC Systems, two 
British mainframe software firms, 
reportedly found their UNIX word 
processor, LEX, running faster on the 
ST than they had ever seen it run, 
after having been ported from the 
binary 68000 version here in the U.S. 

Whitesmiths Vice President for 
Development, Telford B. Sartell, 
exclaims it is a myth that the ST 
cannot multitask. Our interview with 
Sartell will be featured as part of the 
first installment of "Vantage Point," a 
new ST-Log regular series which will 
focus on ST developers outside Atari. 
Charles Bachand, our technical editor, 
will also have a review of Idris, soon 
to be published in ST-Log. Af 

Dial 1-800-RAY-GUNS! 
Operators are 
standing by. . . 

Sierra, which has broken new 
grounds — for better or worse — with its 
graphic adventure game Leisure Suit 
Larry in the Land of the Lounge 
Lizards, promises to port to the ST the 
program which it says sold "over 



500,000 units" in Japan, for an MS- 
DOS machine whose name Sierra for 
the moment cannot recall. 

Thexder is a graphic arcade-style 
game where you portray a "Gobot'-like 
half-android/half-fighter-plane, 
traveling through caves, spaceships 
and rose gardens in search of twenty 
different forms of hostile aliens. The 
game is played on a 2D field with 
what is promised to be "hypnotic 
music" — in other words, this game is 
destined to be the "Slim Whitman's 
Greatest Hits" of the ST. 

As for when Sierra intends to release 
the ST version, well, they're not 
saying. The MS-DOS version will be 
released first, for machines we're sure 
the company can name, followed by 
the Apple IIGS version. Expect a 
release date perhaps in the first 
quarter of '88, sometime after every 
man, woman and child in Japan owns 
a copy. 

Those are the notes for this month. 
I'll see you on Delphi. AT 



Can't find the 1050? 

PERCOM PRODUCTS 

Finished Drives: 

RFD40-S1 SS/DD $189 

RFD44-S1 DS/DD $239 

AT88-SPD SS/DD w/printer port. . .$199 

AT88-S1 SS/DD $139 

Come with 90-day warranty. 

Add-on Slave Drives: 

SS/DD Drive $109 

DS/DD Drive $179 

Dual Drives SS/DD $199 

Come with power suppiy, case and cable. 

Upgrade ROM: Corrects time problems in Perooms 

used with XL/XE series computers. Specify drive 

model wtien ordering— $20. Source Code listing: 

$30. Also 600XL 64K Upgrade: $30. 

Service & Parts: 

Atari, Percom, Epson, Citizen, Commodore, Zenith 

COMPUTER SERVICELAND 

M506-B LEE RD., CHANTILLY, VA 22021 — (703) 631-4949 
CIRCLE #124 ON READER SERVICE CARD 



fBAS 



2-3 



SUPER DATAI 

Only . 

$39.95- 

Will generate al!.lti9.custom software 
y^'ivill ever^rtB^d. 



1 . Create Pcbfsssional Data Screws. 

2. Run Custim Reports. j 

3. Link Everl^thing Together With j 
Custom One Key Menus. / 

• Eas|^.|Aanual «nd Tu.torials 



1 



For IBM-pcrPC Jr., XT 

Atari (except ST) Kaypro 

Commondore 64 -Apple II, 110, HE 

Hard Disk conpatible - 36.000 Files 

• High Quality • 
Adventure Games Only $ 9.95 ea. 



I. M. P. SOFTWARE 

Rt. 1 Box 362 
Ozark, Mo. 65721 

Call your local dealer cr us at 
(417) 485-6398 

* Add S2.00 shipping and handling 
Missouri residents add 5.25% sales tax 



CIRCLE #125 ON READER SERVICE CARD 



SCHEDULED 
ATARI FAIRS 

SEPTEMBER 19 & 20. 1987 
GLENDALE, CALIFORNIA 

Glendale Civic Center 

Sponsored by ACENET 

Conlacl John King Tarpinion al (818) 760-1831 

OCTOBER 10 & 11, 1987 
WORCESTER, IVlASSACHUSETTS 

Worcester Centrum 

Sponsored by the BCS — contact 

Alan Click al (617) 296-8286 

or ANALOG Publishing at (617) 892-3488 

OCTOBER 24 & 25, 1987 
WASHINGTON D.C. 

Fairfax High School, Fairfax, VA (near Rl, 50) 

Sponsored by NOVATARI 

Contact Geogia Weatherhead at (703) 938-4829 

NOVEIVIBER 21 & 22, 1987 
WEST PALIVI BEACH. FLORIDA 

The Royce Hotel 

1601 Belvedere Rd 

For information; 

P,0. Box 1526. Boynton Beach. FL 33435 



PAGE 88 / OCTOBER 1987 



ANALOG COMPUTING 






48K Disk 



:;*«*«ss 



^1^ 





/ 



^ 



Capture the king 

and victory is yours 

in this battle of troils and wizar 



by Scott Langston 



As promised last month, we now bring you the second half of 
Troll War II. We explained in issue 57 that the object code for 
this game is a vviiopping 10K, leaving us no choice hut to print 
the data in two parts. 

A description of the game, along with a few helpful hints, can 
be found in issue 57. [Don't forget to refer to "MIL Editor" for 
typing instructions.) For those of you who'd rather bypass the 
tiresome task of typing it in. the listing is avaiJabJe in its 
entirety on this month's disk version. 

We hope you didn't mind the inconvenience, but we're sure 
you'iJ find it was worth the wait. 

Remember, you must have first typed in part 1. before you 
work on part 2. H 



Listing 1 continued. 
"M/L Editor" data. 

3318 DATft 201,60,176,3,76,111,54,222,1 

03,40,76,136,54,189,105,40,6729 

3320 DflTfl 201,207,240,200,254,185,40,1 

89,105,40,170,189,255,34,45,95,616 

3330 DATA 40,157,255,34,189,0,35,13,96 

,40,157,0,35,96,189,185,5184 

3348 DATA 48,201,32,248,167,222,185,40 

,189,185,48,178,189,1,35,45,7007 

3350 DATA 95,40,157,1,35,189,8,35,13,9 

6,48,157,8,35,96,169,3624 

3360 DATA 3,141,96,48,169,252,141,95,4 

8,169,208,133,147,169,4,133,596 

3370 DATA 146,96,169,192,141,96,40,169 

,63,141,95,40,169,208,133,147,854 
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^ Troll War II 



continued 



3380 DflTfl 169,7,133,146,96,8,55,207,55 

,172,50,40,162,7,189,2,5431 

3390 DftTft 139,153,0,36,189,10,139,25,0 

,35,153,0,35,136,202,16,3835 

3400 DftTfl 237,169,0,141,3,210,96,169,1 

76,141,50,40,169,169,141,55,9420 

3410 DATft 40,159,0,141,8,208,141,12,20 

8,169,228,141,192,2,162,180,2319 

3420 DflTft 142,59,40,142,0,208,232,142, 

6,208,232,232,232,142,5,208,4253 

3430 DATA 96,173,59,40,201,197,176,248 

,238,59,40,174,59,40,76,63,8347 

3440 DflTfl 55,173,59,40,201,53,144,232, 

206,59,40,174,59,40,76,63,6812 

3450 DflTft 55,173,50,40,201,207,176,40, 

238,50,40,174,50,40,160,16,6996 

3460 DflTfl 189,255,35,157,0,36,189,255, 

34,41,60,29,0,35,157,0,3040 

3470 DATA 35,189,255,34,41,195,157,255 

,34,202,136,208,227,238,55,40,3364 

3480 DATA 96,173,55,40,201,33,144,40,2 

06,50,40,206,55,40,174,55,6809 

3490 DATA 40,160,16,189,1,36,157,0,36, 

189,1,35,41,60,29,0,427 

3500 DATA 35,157,0,35,189,1,35,41,195, 

157,1,35,232,136,208,227,941 

3510 DATA 96,208,55,203,56,169,0,133,7 

7,173,77,112,201,116,208,75,528 

3520 DATA 173,76,112,201,193,208,68,32 

,134,46,32,182,45,32,15,46,4126 

3530 DATA 173,108,48,240,6,206,108,40, 

76,125,56,169,42,141,195,2,7396 

3540 DATA 32,243,56,162,0,160,0,169,5, 

141,22,40,32,96,48,32,2355 

3550 DATA 1,57,32,134,46,32,182,45,32, 

15,46,173,15,208,208,3,5648 

3560 DATA 76,122,56,169,0,141,195,2,76 

,117,56,173,77,112,201,113,8889 

3570 DATA 208,86,173,76,112,201,41,208 

,79,32,119,46,32,182,45,32,5533 

3580 DATA 87,46,173,108,40,240,6,206,1 

08,40,76,125,56,169,90,141,8448 

3590 DATA 194,2,32,243,56,32,119,46,32 

,182,45,32,87,46,32,1,1787 

3600 DATA 57,162,1,169,33,141,22,40,16 

0,0,32,96,48,173,14,208,5673 

3610 DATA 208,3,76,122,56,169,0,141,19 

4,2,141,0,210,169,90,141,8981 

3620 DATA 108,40,141,30,208,76,98,228, 

173,49,2,201,112,208,243,173,3619 

3630 DATA 48,2,201,0,208,236,173,32,48 

,208,231,32,245,54,162,1,9960 

3640 DATA 173,3,208,32,82,54,162,1,173 

,3,208,32,82,54,32,202,6240 

3650 DATA 53,32,226,54,162,8,173,0,208 

,32,82,54,162,0,173,0,5125 

3660 DATA 208,32,82,54,32,14,54,173,8, 

208,41,14,240,13,173,40,5708 

3670 DATA 40,204,56,199,57,240,3,206,4 

0,40,169,1,141,32,40,173,6756 

3680 DATA 11,208,41,1,240,16,173,41,48 

,240,3,206,41,40,169,1,5978 

3690 DATA 141,32,40,141,67,40,141,30,2 

08,76,98,228,162,0,32,63,6421 

3700 DATA 44,160,0,32,100,45,32,118,45 

,96,162,1,32,80,44,160,4045 

3710 DATA 0,32,109,45,32,118,45,96,169 

,0,141,200,2,169,112,141,8032 

3720 DATA 49,2,169,31,141,48,2,169,65, 

141,111,2,141,27,208,169,8038 

3730 DATA 112,133,1,169,225,133,0,162, 

22,32,161,40,169,96,141,244,335 

3740 DATA 2,169,38,141,102,40,32,133,4 

1,169,200,141,47,40,169,40,7093 

3750 DATA 141,1,2,169,113,141,0,2,173, 

14,212,9,128,141,14,212,7379 

3760 DATA 169,40,141,74,40,32,41,41,16 

9,0,141,112,40,32,63,42,2736 



3770 DATA 160,0,32,239,42,174,112,40,1 

89,181,112,141,0,210,238,112,2077 

3780 DATA 40,173,112,40,201,8,144,5,16 

9,0,141,112,40,206,74,48,6333 

3790 DATA 208,219,160,0,140,0,210,169, 

1,145,0,169,2,200,145,0,6926 

3800 DATA 32,63,42,32,63,42,32,172,40, 

32,139,40,169,7,162,55,4673 

3810 DATA 160,208,32,92,228,32,78,41,1 

73,128,128,240,5,173,40,40,7908 

3820 DATA 248,17,32,63,44,32,97,44,32, 

115,44,162,22,32,161,40,3540 

3830 DATA 32,200,57,231,57,127,44,173, 

103,131,240,5,173,41,40,240,296 

3840 DATA 229,32,80,44,32,106,44,32,11 

5,44,162,44,32,161,40,32,3476 

3850 DATA 127,44,76,175,57,0,112,188,1 

12,112,112,68,152,131,4,4,5676 

3860 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4,4,4404 

3870 DATA 4,4,4,4,4,65,0,112,112,112,1 

12,112,112,112,112,112,6416 

3880 DATA 112,112,79,88,135,15,15,15,1 

5,15,15,15,15,15,15,15,7295 

3890 DATA 15,15,15,15,15,15,15,143,112 

,112,68,225,112,65,31,112,5653 

3900 DATA 112,69,109,112,68,0,128,4,4, 

4,4,4,4,4,4,4,6593 

3910 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,65 

,71,112,8041 

3920 DATA 21,62,242,124,18,40,0,8,8,8, 

0,0,0,0,0,0,5617 

3930 DATA 0,0,222,223,224,225,226,227, 

228,229,0,230,231,232,233,234,1948 

3940 DATA 235,236,6,0,0,0,0,0,0,0,0,0, 

0,0,254,136,633 

3950 DATA 144,96,64,32,37,64,32,48,80, 

23,64,80,80,48,1,1,140 

3960 DATA 0,0,1,1,0,1,1,1,0,1,8,1,1,1, 

243,193,770 

3970 DATA 217,162,243,182,217,162,221, 

112,216,113,1,1,12,12,0,0,3889 

3980 DATA 0,8,8,8,0,0,0,0,0,0,0,0,8,8, 

8,0,3980 

3990 DATA 0,8,8,8,8,8,0,0,0,0,0,0,0,0, 

0,0,3990 

4000 DATA 0,0,8,0,1,2,8,8,8,8,8,8,8,8, 

8,8,4937 

4010 DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8, 

8,8,5098 

4020 DATA 8,8,8,8,8,8,0,0,0,0,0,0,0,0, 

0,0,4188 

4030 DATA 0,8,8,8,8,8,0,8,8,8,8,8,0,0, 

0,0,4030 

4040 DATA 0,0,8,8,8,8,8,8,8,8,8,8,8,8, 

0,0,4040 

4050 DATA 0,0,8,45,46,47,46,8,8,8,47,4 

8,0,0,0,0,6157 

4060 DATA 0,8,8,8,8,47,48,8,0,45,46,47 

,48,0,0,0,6822 

4070 DATA 45,46,0,0,47,46,0,0,0,0,0,18 

2,184,0,181,182,4921 

4080 DATA 183,184,45,46,0,0,0,0,0,0,45 

,46,47,46,47,48,8725 

4090 DATA 0,72,72,73,47,48,0,45,46,0,6 

8,59,60,63,0,0,9157 

4100 DATA 0,8,0,181,182,183,184,0,0,0, 

0,0,0,0,0,0,8120 

4110 DATA 0,8,73,72,73,86,74,75,86,86, 

84,85,75,74,86,8,3495 

4128 DATA 8,57,58,61,62,64,8,8,8,0,0,0 

,0,0,0,0,5346 

4130 DATA 0,8,8,8,8,8,217,113,212,114, 

0,0,0,0,0,0,9601 

4140 DATA 0,8,8,8,8,0,0,0,0,0,0,0,0,0, 

0,243,8028 

4150 DATA 76,77,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,4380 
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4160 DATA 0,0,6 


,0,0, 


0,0,4160 




4170 DATA 0,0,0 


,0,0, 


0,0,0,0,7363 




4180 DATA 0,0,0 


,0,0, 


0,0,4180 




4190 DATA 0,0,0 


,8,8, 


0,243,8078 




4200 DATA 78,79 


,0,0, 


0,0,0,4436 




4210 DATA 0,0,0 


,0,0, 


0,0,4210 




4220 DATA 0,0,0 


,0,0, 


0,0,0,0,7375 




4230 DATA 0,0,0 


,0,8, 


0,0,4230 




4240 DATA 0,0,0 


,8,8, 


0,243,8128 




4250 DATA 76,77 


,8,8, 


0,0,0,4480 




4260 DATA 0,0,0 


1 0, 1 


0,0,4260 




4270 DATA 0,0,0 


,0,0, 


0,0,0,0,7463 




4280 DATA 0,0,8 


,0,0, 


0,0,4280 




4290 DATA 8,0,0 


,0,0, 


0,0,0,0,0,0,9715 


4300 DATA 0,0,0 


,243, 


0,0,0,0,6136 




4310 DATA 0,0,0 


,0,0, 


0,0,4310 




4320 DATA 0,0,0 


,0,0, 


,77,0,0,9059 




4330 DATA 0,0,0 


,0,0, 


0,0,4330 




4340 DATA 0,0,0 


8,8, 


0,0,4340 




4350 DATA 0,0,0 


243, 


0,0,0,0,6164 




4360 DATA 0,0,0, 


8,8, 


0,0,4360 




4370 DATA 0,0, Oj 


8,8, 


,79,0,0,9163 




4380 DATA 0,0, Oj 


8,0, 


0,0,4380 




4390 DATA 0,0,0, 


0,0, 


0,0,4390 




4400 DATA 0,0,0, 


243, 


0,0,0,0,6214 




4410 DATA 0,0,0, 


0,0, 


0,0,4410 




4420 DATA 0,0,0, 


0,0, 


,77,0,0,9159 




4430 DATA 0,0,0, 


0,0, 


0,0,4430 




4440 DATA 0,0,0, 


0,0, 


0,0,4440 




4450 DATA 0,0,0, 


243, 


116,0,0,0, 0,0,0, 


1535 


4460 DATA 0,0,0, 


0,0, 


0,0,4460 




4470 DATA 0,8,8, 


0,0, 


243,0,8115 




4480 DATA 78,79, 


0,0, 


0,0,0,4716 




4490 DATA 0,8,0, 


0,0, 


0,0,4490 




4500 DATA 0,0,0, 


0,0, 


0,0,0,0,7936 




4510 DATA 0,0,0, 


0,0, 


0,0,4510 




4520 DATA 0,0,8, 


0,0, 


243,8,8165 




4538 DATA 76,77, 


0,0, 


8,8,8,4768 




4548 DATA 8,8,8, 


0,0, 



2,73,86,84,87,3526 



0,0,0,0,0,8,8 
8,243,8,78,79 
8,8,0,0,8,0,8 
8,8,0,0,0,8,8 
0,8,6,8,0,0,0 
0,0,0,8,8,8,8 
0,243,0,76,77 
0,0,0,0,0,8,0 
0,0,0,0,0,0,0 
8,0,0,0,0,0,0 
0,0,0,0,6,6,6 
8,243,8,78,79 
6,8,6,0,0,0,8 
6,213,114,268 
78,79,0,8,8,8 
6,8,6,6,6,6,8 
8,6,6,8,8,243 
6,6,6,6, 6,6,6 
6,6,8,6,6,6,6 
76,77,6,6,6,6 
6,6,8,6,8,8,6 
8,8,0,8,6,243 
6,8,8,6,6,6,6 
6,6,8,8,8,6,8 
76,77,6,6,6,6 
6,6,6,8,6,6,6 
8,8,6,6,6,243 
8,8,6,6,8,8,8 
8,6,8,6,6,8,6 
76,77,289,115 
6,6,6,8,8,8,6 
8,8,6,8,8,6,6 
8,8,6,8,6,8,8 
0,0,0,0,8,8,8 
8,8,243,78,79 
0,0,0,8,8,6,6 
0,6,6,8,8,8,8 
8,8,0,0,0,0,0 
8,72,74,73,75 



>,8 


,8, 


»,8 


,8, 


>,e 


8, 


,6, 


6, 


,8, 


8, 


,6, 


6, 


',8 


,8, 


>,8 


p6. 


>,8 


p8. 


>,6 


-6, 


>,6 


,6, 


»,e 


p8. 


1,8 


8, 


>,115, 


,6 


6, 


,6 


6, 


,6, 


76 


,6, 


6, 


,6, 


0/ 


,8, 


8, 


,6, 


6, 


,8, 


78 


,6, 


6, 


,6, 


6, 


,6, 


0, 


,6, 


0, 


,8, 


76 


,0, 


0, 


,0, 


0, 


,192, 


,0, 


0, 


,0, 


0, 


,0, 


0, 


,6, 


0, 


,8, 


0, 


,6, 


0, 


,8, 


0, 


,8, 


0, 


,74 


,7 



4550 DATA 84,85,72,73,72,73,72,75,74,7 

3,0,0,45,46,0,47,591 

4560 DATA 48,0,0,0,45,46,47,48,47,46,6 

,0,45,46,0,0,7934 

4570 DATA 8,6,8,8,8,6,8,8,45,46,45,46, 

47,48,47,46,9286 

4586 DATA 6,0,6,49,56,52,49,58,51,52,6 

,6,49,58,52,6,9177 

4598 DATA 6,49,56,51,52,6,45,46,47,48, 

8,45,46,45,46,8,9346 

4600 DATA 45,46,47,46,45,46,0,49,50,52 

,193,116,188,117,0,0,4522 

4610 DATA 0,0,0,8,0,0,0,0,0,0,0,0,0,0, 

0,0,4610 

4620 DATA 0,0,0,8,6,6,6,6,8,6,8,8,6,8, 

0,0,4620 

4630 DATA 0,0,0,0,0,0,59,60,63,65,0,45 

,46,47,46,76,442 

4640 DATA 87,0,47,48,0,8,0,8,6,6,0,6,6 

,47,48,8,6438 

4658 DATA 8,45,46,47,48,8,8,8,0,0,0,0, 

0,0,61,62,7213 

4660 DATA 64,66,67,0,0,0,80,81,73,75,7 

4,86,87,0,0,0,649 

4670 DATA 0,0,45,46,0,0,47,48,45,46,0, 

6,47,48,0,45,8570 

4680 DATA 46,45,46,0,0,0,80,81,72,73,8 

7,0,0,76,86,72,2003 

4690 DATA 73,72,73,86 

5,0,0,0,8,0,6,9186 

4768 DATA 8,8,8,0,8,8 

76,77,7872 

4718 DATA 0,114,0,0,0 

0,0,0,4938 

4720 DATA 0,0,0,0,8,0 

0,0,4720 

4730 DATA 0,0,0,0,8,0 

0,0,0,0,6934 

4740 DATA 0,8,8,8,6,6 

6,6,4748 

4758 DATA 6,6,8,6,8,6 

78,79,7184 

4766 DATA 6,114,8,8,6 

7,184,118,8,0,2515 

4770 DATA 0,0,0,0,0,0 

0,0,4778 

4786 DATA 8,8,8,8,0,0 

4,0,0,0,8022 

4790 DATA 8,8,8,8,6,6 

6,6,4790 

4888 DATA 6,0,8,6,0,0 

25,26,5591 

4810 DATA 8,0,76,77,0 

0,0,8,8,6836 

4828 DATA 6,8,8,8,6,6 

8,0,4820 

4838 DATA 6,6,6,8,8,8 

4,8,0,0,8118 

4840 DATA 8,6,8,8,6,8 

0,0,4848 

4850 DATA 0,8,8,6,8,6 

0,0,4858 

4868 DATA 6,6,78,79,8 

8,8,0,8,6694 

4878 DATA 8,6,0,0,0,0 

0,0,4878 

4880 DATA 0,8,0,8,0,0 

114,0,0,0,8585 

4898 DATA 6,6,0,6,6,8 

6,8,4890 

4900 DATA 0,6,6,0,6,6 

6,6,4960 

4910 DATA 0,8,76,77,8 

8,8,8,8,6138 

4928 DATA 8,6,0,0,0,8 

180,119,0,0,2377 

4930 DATA 0,8,8,8,8,8 

78,79,7364 



,74,75,86,86,84,8 
,6,6,6,6,6,6, 8,6, 
,8,8,6,8,6,0,0,6, 
,6,0,0,0,0,0,8,6, 
,78,79,114,6,6,8, 
,6,6,6,6,0,0,0,0, 
,0,0,0,0, 0,0,0,0, 
,0,8,6,6,8,189,11 
,8, 8,6,6,8,6,6,6, 
,8,8,6,8,76,77,11 
,6,8,6,6,8,8,6,6, 
,6,6,8,6,8,6,8,6, 
,114,8,8,6,6,6,8, 
,6,6,8,8,8,6,6,8, 
,8,8,6,0,78,79,11 
,6,6,8,8,6,8,6, 8, 
, 6,8,6,8,8,6,6,6, 
,114,6,0,6,8,8,6, 
,6,6,6,8,6,8,6,6, 
,25,26,0,8,76,77, 
,8,6,6,8,6,8,6,8, 
,6,6,8,8,8,6,6,8, 
,114,8,0,8,6,6,8, 
,8,8,6,0,185,118, 
,0,0,0,0,0,6,8,8, 
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4940 DATA 114,8,6,8,0,0,8,0,8,0,0,0,0, 

0,0,0,5054 

4950 DATA 0,0,0,0,8,8,8,8,8,8,8,8,8,8, 

0,0,4950 

4960 DATA 8,8,8,8,8,8,76,77,0,114,8,8, 

0,0,0,0,7248 

4970 DATA 0,0,0,0,6,8,8,8,8,8,8,8,8,8, 

6,0,4970 

4988 DATA 8,6,6,0,6,6,8,8,8,0,6,8,8,8, 

76,77,7352 

4990 DATA 114,8,8,8,8,8,0,6,8,8,6,8,8, 

0,0,0,5104 

5000 DATA 0,0,0,8,6,8,8,8,8,8,0,0,0,0, 

0,0,5008 

5010 DATA 0,0,0,0,0,0,76,77,0,114,0,0, 

0,0,0,0,7298 

5020 DATA 0,0,8,8,8,0,0,0,0,0,0,0,0,0, 

0,0,5028 

5030 DATA 0,0,0,0,0,0,0,0,0,0,0,8,8,8, 

78,79,7464 

5040 DATA 114,0,0,0,0,0,0,0,0,0,0,8,6, 

6,0,0,5154 

5050 DATA 0,0,0,0,0,0,0,0,0,8,6,8,8,6, 

0,8,5050 

5060 DATA 0,0,0,0,0,8,78,79,8,114,6,8, 

8,0,0,0,7378 

5070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,5070 

5080 DATA 0,0,0,0,0,0,0,0,0,0,181,119, 

128,120,0,0,1843 

5090 DATA 0,0,76,77,114,0,0,0,8,6,6,8, 

6,0,0,0,6196 

5100 DATA 0,0,0,0,0,0,0,0,0,8,6,8,8,6, 

6,8,5100 

5118 DATA 6,8,8,6,8,8,6,8,8,6,82,83,72 

,73,72,73,1214 

5128 DATA 72,75,74,73,72,74,73,75,74,7 

2,73,86,84,87,0,0,3302 

5130 DATA 0,0,0,0,0,0,0,0,0,0,0,8,8,8, 

6,0,5130 

5140 DATA 0,0,0,0,45,46,0,47,48,6,8,8, 

45,46,47,48,9151 

5158 DATA 47,46,8,8,45,46,8,6,8,8,8,0, 

0,0,0,0,5790 

5160 DATA 45,46,45,46,47,48,47,46,0,0, 

0,49,58,52,49,50,337 

5170 DATA 51,52,0,0,49,50,52,0,0,49,58 

,51,52,0,45,46,9973 

5188 DATA 47,48,8,45,46,45,46,8,45,46, 

47,46,45,46,0,49,272 

5198 DATA 58,52,8,6,8,6,8,6,8,8,8,8,8, 

8,0,0,5344 

5200 DATA 8,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,5200 

5210 DATA 0,0,0,0,0,0,8,8,0,8,8,128,25 

1,128,8,8,1881 

5220 DATA 8,8,6,6,6,6,6,8,6,6,6,6,6,8, 

8,0,5220 

5230 DATA 0,0,0,0,8,8,8,8,8,8,8,6,8,8, 

8,0,5230 

5240 DATA 0,0,0,0,0,0,0,0,0,0,0,8,8,69 

,69,69,8345 

5258 DATA 69,69,69,69,69,69,69,69,69,6 

9,69,69,69,69,69,69,4634 

5260 DATA 69,69,69,69,69,69,69,8,6,0,0 

,0,0,0,0,0,7192 

5270 DATA 59,60,63,65,0,69,0,0,1,2,0,0 

,0,0,0,0,6341 

5288 DATA 6,6,6,8,6,6,0,0,0,8,0,0,0,0, 

69,0,6315 

5290 DATA 8,0,8,8,8,8,0,0,61,62,64,66, 

67,1,2,0,8878 

5300 DATA 0,0,0,8,8,0,0,45,46,0,0,0,0, 

0,0,0,6074 

5310 DATA 0,0,0,0,8,8,69,0,0,0,0,0,0,0 

,0,0,5793 

5320 DATA 0,0,0,8,0,69,0,8,0,0,1,2,0,8 

,8,8,5769 



5330 DATA 0,0,0,45,46,47,48,6,8,47,48, 

0,0,0,69,0,8391 

5348 DATA 8,0,0,0,0,0,0,8,45,46,47,48, 

8,69,0,1,8280 

5356 DATA 2,8,6,0,8,8,8,182,184,6,6,6, 

8,0,0,47,9216 

5360 DATA 48,6,6,8,8,6,69,181,183,184, 

8,0,6,6,8,0,826 

5370 DATA 8,6,47,48,6,69,8,6,6,6,252,1 

28,247,129,8,8,5442 

5380 DATA 8,0,8,184,6,8,0,0,0,0,0,8,0, 

0,0,0,6116 

5390 DATA 181,182,183,184,45,46,8,8,6, 

8,0,47,46,45,46,0,203 

5400 DATA 0,69,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,5538 

5418 DATA 8,0,8,8,0,181,182,183,184,6, 

69,6,8,6,47,48,3122 

5426 DATA 6,8,8,6,8,6,182,183,8,69,6,6 

,0,0,6,6,8848 

5438 DATA 6,0,6,6,8,8,6,6,6,8,181,182, 

183,184,0,0,4560 

5440 DATA 0,8,69,0,0,45,46,47,48,0,0,0 

,47,48,184,8,1696 

5450 DATA 0,69,0,0,45,46,47,48,6,8,6,8 

,6,0,0,0,6802 

5460 DATA 0,0,184,0,8,6,6,6,8,8,69,6,8 

,0,6,6,6771 

5478 DATA 8,0,6,6,8,45,46,47,48,69,47, 

48,8,6,6,6,8653 

5486 DATA 45,46,6,6,6,8,6,6,8,8,6,8,6, 

6,0,0,5617 

5490 DATA 0,6,69,0,49,50,51,52,0,0,70, 

71,0,0,0,0,8637 

5568 DATA 6,69,6,6,8,6,8,0,0,0,0,0,0,0 

,0,0,5638 

5510 DATA 0,0,0,0,0,0,0,0,0,0,69,0,0,0 

,0,49,7053 

5520 DATA 50,52,90,91,0,0,0,0,0,69,0,0 

,0,0,0,0,6998 

5530 DATA 0,0,0,0,0,0,0,0,0,0,248,129, 

243,130,0,0,4785 

5548 DATA 0,0,0,0,0,0,69,0,49,50,52,0, 

0,0,0,0,7536 

5550 DATA 0,8,0,0,0,69,0,0,0,0,0,0,0,0 

,0,0,5964 

5560 DATA 0,8,0,0,0,49,50,52,0,0,0,0,0 

,0,69,0,7655 

5570 DATA 8,0,0,0,92,93,0,47,46,0,0,0, 

0,69,0,0,8344 

5588 DATA 6,0,0,0,0,6,0,0,0,0,0,0,0,0, 

0,0,5580 

5598 DATA 8,6,49,56,51,52,69,8,8,0,47, 

48,8,6,8,182,992 

5600 DATA 183,47,48,8,0,69,8,0,0,0,0,0 

,0,0,0,0,6435 

5510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,8, 

69,0,6645 

5620 DATA 0,45,46,53,49,50,0,45,46,0,0 

,0,0,69,0,0,8345 

5630 DATA 0,0,0,0,0,0,0,0,0,0,0,49,50, 

51,52,0,8362 

5648 DATA 6,8,0,0,0,0,69,0,0,0,0,184,0 

,0,0,0,8331 

5650 DATA 0,0,0,0,0,69,0,0,0,0,0,0,0,8 

,0,0,6064 

5660 DATA 0,45,46,0,0,8,0,0,0,0,8,0,0, 

0,69,0,6923 

5670 DATA 0,0,49,50,52,0,0,45,46,0,0,4 

7,48,69,6,6,9285 

5680 DATA 8,8,0,0,0,0,49,50,52,0,0,0,0 

,0,0,0,6891 

5690 DATA 0,23,24,0,0,0,69,0,0,49,244, 

130,151,131,50,51,6388 

5700 DATA 52,0,0,0,0,45,46,0,0,69,181, 

183,184,6,6,8,3613 

5718 DATA 6,0,8,0,0,0,0,0,0,0,0,0,0,0, 

0,0,5710 
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5720 DATA 23,24,69,0,0,0,8,0,0,6,6,0,0 

,6,47,46,7439 

5730 DATA 182,183,184,0,0,0,0,0,0,0,0, 

0,6,0, 0, 0,6830 

5740 DATA 0,47,46,23,24,0,0,0,6,6,69,6 

,68,59,60,63,561 

5756 DATA 0,0,0,0,0,0,6,0,6,69,6,6,0,6 

,0,0,6440 

5760 DATA 0,0,0,0,0,0,0,6,6,0,6,6,6,6, 

OT ^A fi d. ft *} 

5770 DATA 6,6,6,57,58,61,62,64,6,6,6,0 

,0,0,0,8,7660 

5780 DATA 0,69,69,69,69,69,69,69,69,69 

,69,69,69,69,69,69,5095 

5790 DATA 69,69,69,69,69,69,69,69,69,6 

9,69,0,0,0,0,0,344 

5800 DATA 0,0,152,131,147,132,116,116, 

116,116, 116 , 116,116,116,116 , 116 , 1647 

5810 DATA 116,116,116,116,116,116,116, 

116,116,116,116,116,116,116,116,116,15 

86 

5820 DATA 116,116,116,116,116,116,116, 

116,116,116,116,116,116,116,116,6,9748 

5830 DATA 0,0,0,0,8,6,6,8,116,0,6,0,6, 

0,0,8,6874 

5340 DATA 0,0,0,0,0,0,0,0,0,116,116,0, 

0,0,0,0,8276 

5850 DATA 0,0,0,0,0,116,116,0,6,8,45,4 

6,0,0,0,0,8405 

5860 DATA 116,0,0,0,0,0,0,0,0,0,0,0,0, 

6,0,0,5976 

5870 DATA 116,116,0,0,0,0,49,50,52,0,0 

,0,0,116,116,0,793 

5880 DATA 47,48,0,0,0,0,0,0,116,0,0,0, 

0,0,0,0,7067 

5890 DATA 45,46,8,116,6,6,8,6,6,6,49,5 

0,51,52,0,8,9821 

5900 DATA 49,50,51,52,8,116,116,0,0,0, 

0,0,47,48,0,0,9201 

5910 DATA 116,0,0,0,0,0,0,0,0,0,0,116, 

0,0,0,0,7418 

5920 DATA 0,0,0,8,0,0,0,0,0,0,0,0,0,11 

6,116,0,9284 

5930 DATA 0,0,0,0,0,0,116,116,116,0,0, 

0,0,0,45,46,125 

5940 DATA 47,48,0,116,0,6,6,6,6,6,6,6, 

0,8,49,50,8082 

5950 DATA 51,52,116,0,0,116,116,0,0,0, 

0,0,0,0,0,0,7961 

5960 DATA 0,0,148,132,143,133,8,8,8,8, 

8,116,116,116,116,116,6565 

5970 DATA 0,45,46,0,0,0,0,0,0,116,116, 

49,50,52,116,0,2340 

5980 DATA 0,116,116,0,8,6,116,116,8,8, 

0, 0,8,8,8,6,8368 

5998 DATA 6,0,0,0,0,0,116,116,0,0,0,0, 

0,0,0,0,7730 

6000 DATA 0,0,116,0,0,0,0,116,116,116, 

116,0,0,0,0,116,2612 

6010 DATA 0,0,0,0,0,0,0,6,6,45,46,6,6, 

0,116,116,562 

6020 DATA 0,6,0,0,0,0,0,45,46,0,0,47,4 

8,0,0,0,7982 

6030 DATA 0,116,116,0,0,0,0,116,0,0,0, 

0,0,0,0,47,8290 

6040 DATA 48,8,6,6,6,8,116,116,8,0,0,0 

,8,0,0,0,7828 

6650 DATA 0,0,0,0,0,0,0,0,0,116,116,0, 

0,0,0,116,342 

6060 DATA 0,0,0,47,48,0,0,0,0,0,0,0,0, 

0,116,116,84 

6070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,6070 

6080 DATA 0,116,116,116,0,0,116,116,11 

6,116,116,116,116,0,0,116,7100 

6090 DATA 116,116,116,116,0,0,116,116, 

116,116,116,116,116,0,0,116,7226 

6100 DATA 116,116,116,116,116,116,116, 

0,6,116,116,0,0,0,0,0,1784 



6110 DATA 8,0,8,0,0,0,0,0,0,0,0,0,0,0, 

8,8,6118 

6128 DATA 6,8,144,133,139,134,6,116,0, 

6,6,6,8,49,56,51,1763 

6130 DATA 52,0,0,0,0,116,116,8,6,6,45, 

46,47,48,6,8,26 

6140 DATA 0,0,0,0,0,6,0,0,0,0,0,0,0,11 

6,116,116,1360 

6150 DATA 0,0,0,0,0,0,0,49,50,52,0,0,0 

,116,116,0,876 

6160 DATA 0,0,45,46,0,0,45,46,116,0,0, 

0,0,0,0,0,8206 

6170 DATA 0,0,0,0,0,116,0,0,49,50,51,5 

2,0,0,0,0,8992 

6180 DATA 0,0,0,0,0,116,116,0,47,46,0, 

0,0,0,116,116,2167 

6190 DATA 116,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,8,6306 

6286 DATA 6,0,0,8,6,6,6,0,6,6,0,0,6,11 

6,116,6,9564 

6218 DATA 6,0,6,6,8,8,8,0,6,0,0,0,0,0, 

0,0,6210 

6220 DATA 6,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,6220 

6230 DATA 0,45,46,0,0,116,116,0,0,0,0, 

0,0,0,0,0,7966 

6240 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,6240 

6250 DATA 0,0,8,116,116,116,116,116,11 

6,116,116,47,48,116,116,0,7762 

6260 DATA 0,47,48,0,45,46,0,0,0,0,0,0, 

0,0,0,116,8855 

6270 DATA 116,0,0,45,46,47,48,0,0,0,0, 

0,0,0,0,0,7414 

6280 DATA 0,0,148,134,87,135,0,0,0,116 

,116,45,46,0,0,0,2055 

6290 DATA 0,0,0,0,0,116,0,0,45,46,0,11 

6,0,0,0,0,9243 

6300 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,47 

,48,0,7678 

6310 DATA 0,116,116,0,0,0,45,46,0,0,11 

6,116,116,116,0,0,3373 

6320 DATA 0,47,48,116,0,0,0,0,0,0,0,0, 

0,0,0,0,7022 

6330 DATA 0,49,50,51,52,0,0,0,0,116,11 

6,0,0,0,0,0,9478 

6340 DATA 0,0,115,0,0,0,0,0,45,46,0,11 

6,116,0,0,0,453 

6350 DATA 0,0,0,0,0,0,0,49,50,52,0,0,0 

,0,0,0,7712 

6360 DATA 0,116,115,0,8,0,0,0,0,116,11 

6,0,0,0,0,0,9376 

6370 DATA 0,0,6,0,116,0,0,0,0,0,0,0,0, 

0,0,0,6950 

6380 DATA 0,0,0,0,0,0,0,0,0,116,116,11 

6,116,116,116,116,6936 

6390 DATA 116,116,116,116,116,116,116, 

116,116,116,116,116,116,116,116,116,21 

66 

6400 DATA 116,116,116,116,116,116,116, 

116,116,116,116,116,116,116,116,116,21 

76 

6410 DATA 115,116,88,135,83,136,0,0,0, 

0,0,0,0,170,170,170,6443 

6420 DATA 170,0,0,6,0,0,0,0,8,0,0,0,0, 

0,0,0,6590 

6430 DATA 0,0,0,6,0,0,0,0,0,0,0,0,0,0, 

0,0,6430 

6440 DATA 0,0,0,0,0,153,153,153,153,0, 

0,0,0,0,0,0, 1030 

6450 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,6450 

6460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,13 

6,8,128,532 

6470 DATA 136,8,136,136,8,136,136,8,12 

8,0,8,128,0,0,0,0,2222 

6480 DATA 0,0,0,0,0,0,0,6,6,0,0,0,0,0, 

0,0,6480 

6490 DATA 6,0,0,8,0,0,7,112,0,7,112,11 
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6508 DATA 112,0,7,112,6,0,8,0,0,0,0,0, 

8,0,8,8,7081 „ „ „ „ „ 

6518 DATA 8,8,8,8,0,0,0,0,8,0,0,0,8,8, 

6528' DATA 8,6,96,102,6,95,182,6,96,8,6 
,96,8,8,0,0,678 „ „ „ „ „ 

6530 DATA Q,&,e.O ,0,Q,0,Q,Q,0 .0.0 ,0.^, 

6540 DATA 0,0,0,0,0,0,5,80,0,5,85,80,5 
,80,85,5,1788 ^ „ „ „ 

6558 DATA 88, 8, 5, 80, 0, 0, 0, 0, 8, O, O i Oi 0» 
8,8,8,6965 » „ „ „ „ 

6560 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0- 0- Oi Oi O' •*' 

6570'dATA 0,4,84,136,79,137,68,68,4,64 
,68,4,64,0,4,64,2999 „ „ „ „ 

6580 DATA O, 0, 0, 0, O, 0, 0, 0, 0, 0, O, 0, 0. 8, 

8,0,6580 

6590 DATA O, O, 0, 0, 0, O, 0, 0, O* Of 3, 48, O, 3 

,48,51,8777 „ „ 

6600 DATA 3,51,51,3,51,51,3,51,51,0,0, 
0,0,0,0,0,8319 „ „ „ „ „ 

6610 DATA 0,0,0,0,0,0,0,0,0,0,0,0,8,0, 

0,0,6610 

6620 DATA 0,0,34,34,0,2,32,34,2,34,34, 
2,34,34,2,34,9614 „ „ „ „ „ 

6630 DATA 34,0,0,0,0,0,0,8*8,8,8,0,8,8 

,8,8,6664 

6640 DATA 0, 0, 0, 0, 0, 0, 0, O, O, 0i 0i 0i 0i 0* 

0,0,6640 

6650 DATA O, 0, O, 0, 0, 0, 0, 0, 0, O, 8i 0i 0» 0f 

0,0,6650 „ „ 

6660 DATA 0, O, O, 0, 0, 0, 0, O, 8, Oi 0i 0/ 8 1 0i 

0,0,6660 _ „ „ „ 

6670 DATA O, O, 0, 0, 0, 0, 0, 0, 0i 0* 8* 0/ 0* 0' 

0,0,6670 

6680 DATA O, O, 0, 0, 0, 0, O, 0, Oi 0i 0* 8* 8* 0i 

0,0,6680 

6690 DATA 0, O, O, 0, 0, 0, 0, 0, O, 8, 0i j 0i 0» 

0,0,6690 „ „ 

6700 DATA 0,0,0,0,0,170,0,0,170,0,0,0, 

0,0,0,0,9250 _ „ 

6710 DATA O,O,O,O,O,O,O,0,O,0,0,0j0f0i 

0,0,6710 

6720 DATA O, O, 0, 0, 0, 0, 0, 0, 0i 0» 8i 0i Oi 15 

3,0,0,8862 

6730 DATA 153,0,88,137,75,138,0,0,0,8, 

8,8,8,8,8,8,8874 

6748 DATA 8,8,8,8,8,8,8,8,0,0,8,8,8,8, 

8,8,6748 

6758 DATA 8,8,8,8,8,8,8,8,8,136,0,0,13 

6,8,136,136,4206 

6760 DATA 8,136,136,0,8,136,136,0,0,0, 

0,0,0,0,0,0,9256 

6770 DATA 0,0,0,0,0,0,0,0,0,8,8,0,0,0, 

0,0,6770 

6780 DATA 0,119,7,112,119,7,112,119,7, 

112,119,0,0,112,112,0,5600 

6790 DATA 0, O, 0, 0, 0, 0, 0, 0, 0, 0, 0, O i Of 8» 

0,0,6790 

6800 DATA 0,0,0,0,0,0,0,0,0,182,6,96,1 

82,6,96,182,3520 

6810 DATA 6,96,182,8,0,96,96,0,0,0,0,0 

,0,8,8,0,8562 

6820 DATA 0,8,8,8,8,0,0,0,0,0,0,0,0,0, 

0,0,6820 

6830 DATA 0,85,85,85,85,5,85,85,5,85,8 

0,0,0,80,80,8,3420 

6840 DATA 8,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,6840 

6850 DATA 0,0,0,0,0,0,0,0,0,4,64,4,64, 

4,68,68,638 

6860 DATA 4,68,68,0,0,64,64,0,0,0,0,8, 

0,0,0,0,8036 

6870 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,6870 

6880 DATA 0,3,48,3,48,3,48,51,3,48,51, 

0,0,48,48,0,584 



6890 DATA 8,0,76,138,119,138,0,0,0,0,0 

,0,0,0,0,0,9093 

6900 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,2, 

32,2,7440 

6910 DATA 32,2,32,34,2,32,3^,0,2,34,34 

,0,0,0,0,0,8350 

6920 DATA 0,0,120,138,17,139,8,10,138, 

174,255,174,138,10,8,128,864 

6930 DATA 160,168,234,255,234,168,160, 

128,124,68,108,56,0,0,0,0,7126 

6940 DATA 0,16,16,0,0,68,40,108,0,0,0, 

198,186,56,0,0,4150 

6950 DATA 15,3,3,14,0,0,0,0,15,3,3,14, 

0,0,0,0,7402 

6960 DATA 0,28,12,0,36,0,43,17,0,28,12 

,0,36,0,4,12,8801 

6970 DATA 0,0,0,1,27,14,0,0,0,0,0,1,27 

,14,0,0,7752 

6980 DATA 248,192,192,112,0,0,0,0,240, 

192,192,112,0,0,0,0,6164 

6990 DATA 0,56,48,0,36,0,212,136,0,55, 

48,0,36,0,32,48,2802 

7000 DATA 0,0,0,128,216,112,0,0,0,8,0, 

128,216,112,0,0,5176 

7010 DATA 56,108,68,68,254,186,124,62, 

0,0,24,0,0,36,0,0,2276 

7020 DATA 0,96,251,96,0,0,0,0,0,0,0,0, 

21,19,23,165,1873 

7030 DATA 138,58,12,60,80,16,80,104,13 

6,176,192,240,0,3,0,12,7658 

7040 DATA 2,0,12,3,85,245,245,86,186,1 

68,207,3,5,63,15,5,8307 

7858 DATA 235,10,3,15,80,80,80,96,160, 

128,0,0,85,95,95,149,8546 

7060 DATA 174,44,243,192,0,192,0,48,12 

8,0,48,192,5,5,5,9,4693 

7070 DATA 18,2,0,0,80,252,240,80,235,1 

60,192,240,0,0,5,5,178 

7080 DATA 5,9,10,2,0,0,80,252,240,83,2 

32,160,15,12,0,0,7542 

7090 DATA 0,0,0,0,51,12,0,0,0,0,0,0,0, 

0,0,0,7417 

7100 DATA 5,5,5,9,0,0,0,0,80,252,240,8 

0,10,2,0,0,4164 

7110 DATA 0,0,0,0,235,160,192,240,0,0, 

0,0,0,0,0,0,2509 

7120 DATA 0,0,5,5,0,0,0,0,0,0,80,252,5 

,9,10,2,1432 

7130 DATA 15,12,0,0,240,83,232,160,51, 

12,0,0,5,20,28,16,3371 

7140 DATA 85,117,21,5,64,80,208,16,84, 

116,80,85,0,0,0,0,3742 

7150 DATA 0,3,0,3,84,85,85,20,117,245, 

85,207,21,21,21,5,6737 

7160 DATA 29,253,21,15,0,64,64,0,64,64 

,64,0,21,85,85,20,3628 

7170 DATA 93,95,85,243,8,0,0,0,0,192,0 

,192,0,1,1,0,2933 

7180 DATA 252,96,247,97,1,1,1,0,84,84, 

84,80,116,127,84,240,637 

7190 DATA 0,0,0,1,1,0,1,1,0,0,84,84,84 

,80,116,127,5130 

7200 DATA 1,3,0,0,0,0,0,0,84,207,0,0,0 

,0,0,0,33 

7210 DATA 0,0,0,0,0,1,1,0,0,0,0,0,84,8 

4,84,80,2031 

7220 DATA 1,1,1,0,0,0,0,0,115,127,84,2 

40,0,0,0,0,3344 

7230 DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,0, 

84,84,9842 

7240 DATA 1,0,1,1,1,3,0,0,84,80,116,12 

7,84,207,0,0,5617 

7250 DATA 15,63,255,247,61,0,0,0,252,2 

55,255,247,223,80,64,64,6039 

7260 DATA 15,63,247,253,13,1,1,1,60,25 

5,255,247,220,64,0,0,1855 

7270 DATA 0,0,2,2,10,10,42,170,0,128,1 

29,165,169,169,170,170,3560 

(Continued on page 96) 
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ADVERTISER 



115 Advan Language Designs 40 

104 Alpha Systems 9 

106 American Teclina-Vision 18 

- ANALOG Publisliing 5, 35, 38 

111 B&C Computers 34 

124 Beckemeyer Development Tools 81 

105 Computability ^ 16, 17 

110 Computer Creations, Inc 31 

109 Computer Elite 28 

118 Computer Games Plus 66 

130 Computer Mail Order 96, IBC 

116 Computer Repeats 56 

124 Computer Service Land 88 

129 Future Systems Software 94 

107 Electronic One 24 

125 industnal Machine Products 88 



— Jesse Jones 56 

115 Lyco 48, 49 

119 Megamax, Inc 68 

101 Microdaft IPC, 2 

108 Microtyme 27 

128 Mindscape OBC 

— N.E. Atari Computer Fair 20 

114 Newell Industries 40 

123 Protecto 82, 83, 84, 85 

117 Regent Software 59 

112 S & S Wholesalers 36, 37 

103 Side-line Computer 9 

121 Southern Software 73 

102 subLOGIC Corporation 7 

122 Twenty-fifth Century 74 



This index is an additional service. While even' effort is made to provide a complete and accurate listing, the publisher cannot be responsible /or inad\'erteni errors. 
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7280 DATA 16,84,85,85,85,85,85,85,0,0, 

0,64,64,80,84,85,5609 

7250 DATA 0,0,0,15,63,63,255,252,3,53, 

63,255,255,255,255,240,804 

7300 DATA 195,255,255,255,240,192,0,0, 

252,252,240,0,0,0,0,0,9570 

7310 DATA 0,0,0,2,8,85,255,255,8,32,12 

8,0,0,85,255,255,2588 

7320 DATA 68,85,85,21,21,21,149,21,64, 

64,64,0,17,85,85,21,4281 

7330 DATA 21,21,21,21,21,85,213,255,21 

,85,85,85,85,85,85,255,2330 

7340 DATA 248,97,243,98,0,0,0,0,17,85, 

85,85,85,85,69,69,6295 

7350 DATA 85,85,85,255,0,0,0,0,0,0,128 

,32,8,2,0,0,804 

7360 DATA 21,64,255,255,0,0,128,32,85, 

0,255,255,0,0,0,0,7076 

7370 DATA 0,0,0,2,170,170,170,170,170, 

170,170,170,1,4,16,85,607 

7380 DATA 16,4,1,0,128,32,8,178,8,32,1 

28,0,85,64,74,96,6102 

7390 DATA 64,98,64,85,85,105,65,105,65 

,65,105,85,85,96,74,64,8525 

7400 DATA 104,64,104,85,85,1,41,1,169, 

9,161,85,85,73,73,65,7674 

7410 DATA 65,97,97,85,85,137,129,1,33, 

33,129,85,85,72,64,98,8165 

7420 DATA 98,64,72,85,85,73,65,73,73,6 

5,97,85,85,66,66,96,8053 

7430 DATA 98,64,72,72,85,0,40,10,128,4 

2,128,129,72,72,64,64,7401 

7440 DATA 72,72,64,85,1,0,168,128,10,1 

60,0,85,85,9,1,161,6925 

7450 DATA 41,1,1,85,85,129,129,33,33,1 

,1,85,85,41,1,161,5810 



7460 DATA 1,41,1,85,85,97,97,65,65,97, 

97,85,128,244,244,254,6538 

7470 DATA 254,250,242,144,1,8,95,127,6 

3,127,123,33,0,255,255,243,6129 

7480 DATA 3,3,3,15,0,255,255,207,192,1 

92,192,240,0,240,243,243,2062 

7490 DATA 255,255,60,60,0,15,207,207,2 

55,255,60,60,255,255,243,3,8673 

7500 DATA 244,98,167,99,3,3,3,15,255,2 

55,207,192,192,192,192,240,341 

7510 DATA 0,0,63,60,60,63,60,60,0,0,24 

3,243,243,195,243,243,8528 

7520 DATA 0,0,255,207,207,207,207,255, 

0,0,60,60,60,60,63,63,9832 

7530 DATA 0,0,15,15,15,15,207,207,0,0, 

0,0,0,0,240,240,8345 

7540 DATA 240,240,243,243,255,60,60,60 

,15,15,207,207,255,60,60,60,3557 

7550 DATA 0,0,63,60,60,63,60,60,0,8,24 

3,243,243,243,243,243,9240 

7560 DATA 8,0,255,207,207,252,207,287, 

0,0,15,3,3,3,3,15,5372 

7570 DATA 0,0,252,48,48,48,48,252,68,2 

1,35,43,106,117,21,60,7412 

7580 DATA 68,80,32,160,164,116,88,240, 

136,42,28,16,85,117,21,5,7822 

7590 DATA 136,160,208,16,84,116,80,85, 

255,255,255,255,255,255,255,255,6590 

7600 DATA 0,84,95,184,191,168,48,60,84 

,85,85,28,117,245,85,60,1535 

7610 DATA 85,85,85,85,85,85,85,85,226, 

2,227,2,15,57,0,0,6238 
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When you want to talk Atari 



XL/XE HARDWARE 



INTERFACES 

ICD 

P:R Connection $59.99 

Printer Connection 39.99 

Supra 

Microprint 39.99 

1150 39.99 

1151 (1200 XL) 39.99 

Xetec 

Graptiix Interface 38.99 

Atari 

850 Interface 109.00 

COMPUTERS 



ST HARDWARE 




Atari 130XE ^129 

65 XE 84.99 

800 XL Call 

130 XE Package (Indus GT Drive, XMM801 
Printer, Joystick & Diskettes) 489.00 

XL/XE ENHANCEMENTS 

Axlon 32K Memory Board (400/800). 19.99 
Atari 80 Column Card 84.99 

MODEMS 

Atari 

SX212 300/1200 (ST) 89.99 

835 24.99 

XMM301 42.99 

Anchor 

VM520 300/1200 Direct Connect (ST)1 29.00 

Volksmodem 1200 99.99 

Avatex 

1200 89.99 

2400 219.00 

Supra 

1200 AT (XL/XE) 139.00 

1200 ST (ST) 139.00 




1040 RGB/Color *oeo 

System ^009 

Includes: 1040ST, 1 mb RAM with 31/2" drive 
built-in, 192K ROM with TOS, Basic, power 
supply and 1224 color monitor. 

1040 Monochrome System 689.00 

520ST FM Mono System 509.00 

520 Monochrome System (Includes: 520ST 
computer with modulator, disk drive, mouse, 
Basic and monochrome monitor).... 479.00 

520 RGB/Color System 629.00 

SM124 Monochrome Monitor 159.00 

SM1224 Color Monitor 269.00 

1040 Computer (no monitor) 579.00 

Call on the new Atari Product Line 



DRIVES 




Atari 354 *<**« 

SS/DD Disk Drive (ST) ^129 

Atari 

XF551 Drive (XL/XE) 169.00 

SHD204 20 Meg Hard Drive (ST)... 579.00 

AA314 DS/DD Disk (ST) 209.00 

Indus 

GT Disk Drive (XL/XE) 179.00 

Supra 

20 Meg Hard Drive (XL/XE) 679.00 

20 Meg Hard Drive (ST) 549.00 

30 Meg Hard Drive (ST) 759.00 



PRINTERS 



Atari 

1020 XL/XE $31.99 

XDM121 XL/XE 199.00 

XMM801 XL/XE 189.00 




XMM804ST *179 

Brother 

M-1109 100 cps (80 col.) 199.00 

M-1409 180/45 NLQ w/tractor 319.00 

HR20 22 cps Daisywheel 379.00 

Citizen 

MSP-10 (80 col.) 279.00 

Premier 35 cps Daisywheel 469.00 

MSP-15 40/160 cps 379.00 

Cltoh 

Prowriter 1550P (132 col.) 249.00 

Prowriter 8510SP Call 

Epson 

LX-800 150 cps 80 col 159.00 

FX-86E 240 cps 80 col 299.00 

FX-286E 240 cps 132 col Call 

EX-800 300 cps 80 col Call 

LQ-800 180 cps 24 wire Call 

HI-80 4 pen plotter 299.00 

NEC 

P660 (180 cps draft/65 LQ) 459.00 

P760 132 col (180 cps draft/65 LQ)609.00 
Okidata 

Okimate 20 129.00 

ML-182, ML-192, ML-193 Call 

ML-292, ML-293 Call 

Panasonic 

KX-1080i 120 cps 80 col 159.00 

KX-1091i 180 cps 132 col 169.00 

KX-1092 240 cps 80 col 329.00 

1595 200 cps 132 col 469.00 

Star Micronics 

NX-10 120 cps 80 col 159.00 

NX-15 120 cps 132 col 339.00 

ND-15 180/45 NLQ 429.00 
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you want to talk to us. 



XL/XE SOFTWARE 




AtariWriter Plus ^36^^ 

Access 

Leaderboard Golf $24.99 

Executive Disk 14.99 

Accolade 

Fight Night 18.99 

Hardball 19.99 

Atari 

Various Titles from 2.99 

Batteries Included 

Paperclip w/Spellpack 39.99 

B-Graph 37.99 

Broderbund 

Companion 21.99 

Karateka 17.99 

Cygnus 

Starfleet 1 32.99 

Datasoft 

221 Baker St 19.99 

Electronic Arts 

Touchdown Football 12.99 

Chessmaster 2000 25.99 

Infocom 

Zork III 24.99 

IVlicroprose 

Top Gunner 18.99 

F-15 Strike Eagle 22.99 

Silent Service 21.99 

Origin Systems 

Ultima 4 36.99 

Roklyn SPECIAL 
Gorf/Wizard of Wor/AT Deluxe 

Anti-Sub/Journey to Planet (ea.) 3.99 

Strategic Simulations 

Colonial Conquest 23.99 

Sublogic 

Flight Simulator II 32.99 

Scenery California 14.99 

X-Lent 

Typesetter 21.99 



ACCESSORIES 



Maxell 

MDI-M SS/DD 51/4" $8.49 

MD2-DM DS/DD SVa" 9.49 

MF1-DDM SS/DD 3V2" 12.49 

MF2-DDM DS/DD 3V2" 18.49 

Sony 

MD1D SS/DD 51/4" 7.99 

MD2D DS/DD 51/4" 9.49 

MFD-1DD SS/DD 31/2" 12.99 

l\/IFD-2DD DS/DD 3V2" 19.99 

Allsop Disk Holders 

Disk File 60-51/4" 9.99 

Disk File 30-31/2" 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 

ICD (XL/XE) 

Sparta DOS Contruction Set 28.99 

US Doubler/Sparta DOS 48.99 

Real Time Clock 48.99 

Rambo XL 28.99 

Multi I/O Board 256K 169.00 

Multi I/O Board 1 Meg 299.00 



ST SOFTWARE 



ST SOFTWARE 




Leaderboard Golf $24^^ 

Activision 

Music Studio 35.99 

Antic 

Cad 3-D 31.99 

Atari 

Algebra, Vol. II (Grades 7-9) 19.99 

Batteries Included 

Degas Elite 48.99 

Thunder 25.99 

Cygnus 

Starfleet 1 35.99 



Electronic Arts 

Chessmaster 2000. 



.$27.99 



^ 


# 


^ 



Broderbund 

Print Shop <t4^i-QQ 

for XL/XE *25^^ 

Championship Wrestling 24.99 

Haba 

Habawriter 29.99 

Infocom 

Zork Trilogy 42.99 

Wishbringer 25.99 

Michtron 

Major Motion 25.99 

IVlicroprose 

Silent Service 23.99 

F-15 Strike Eagle 26.99 

Miles Software 

ST Wars 28.99 

Mlndscape 

High Roller 31.99 

OSS 

Personal Pascal 45.99 

Paradox 

War Zone/Firebuster 27.99 

Polarware 

Crimson Crown 26.99 

Psygnosis 

Deep Space 29.99 

Sierra On Line 

Winnie The Pooh (Educ.) 18.99 

Sublogic 

Flight Simulator II 33.99 

Timeworks 

Wordwriter/Swifcalc/Data Managerea. 49.99 

Unison World 

Printmaster Plus 24.99 

VIP 

Professional (GEM) 144.99 

X-Lent 

Typesetter 28.99 



In the U.S.A. and In Canada 

Call toll-free: 1-800-233-8950. 

Outside the U.S.A. call 717-327-9575 Telex 5106017898 Fax 717-327-1217 

Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 

CMO. 477 East Third Street, Dept. B710, Williamsport, PA 17701 

ALL MAJOR CREDIT CARDS ACCEPTED. 

POLICY- Add 3% (minimum $7 00) shipping and liandling. Larger shipments may require additionai charges. Personai and company checl<s require 3 weel<s to clear. 
For faster delivery use your credit card or send cashier's checl< or banl< money order. Pennsylvania residents add 6% sales tax. All pnces are U.S.A. prices and are 
subject to change and all items are subject to availability. Defective software will be replaced with the same item only. Hardware will be replaced or repaired at our discre- 
tion within the terms and limits of the manufacturer's warranty. We cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. 
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■CUT HERE 



CAN TOU CUT IT? 



Can you handle the excitement of 
the hottest arcade nnegahits? 

Then cut out these name plates, 
mount 'em on your 
monitors and boot 
up Gauntlet and 
Paperboy' from 
Mindscape. That's 
all you need for 
absolutely outrageous 
arcade action, right 
at home. 




You'll get real arcade graphics. Real 

arcade feel. Real arcade excitement. 

After all, these are based on the real 

arcade classics. So 

get set, get psyched 

for the arcade to hit 

home. Just pick up 

new Gauntlet and 

Paperboy. That is, 

if you think you can 

cut it. 



Mindscape takes the arcade home. 



NOSCaPi INC 



Visil your relailer or call 1-800-221-9884 lor VISA or MasterCard orders. To purchase by mail, send 
your card number with expiration dale, check or money order lor $34.95 eacri {C64/1 28 and Alari 800). 
or $49.95 (Alan ST, Paperboy only) plus $3.00 lor handling lo Mindscape. Inc.. RO. Box 1 167, 



NorthbrooK IL 60065-1167. Allow 3-5 weeks for delivery. Legal eagles take note: © 1987 Mindscape Inc. 
Mindscape is a trademark of Mindscape, Inc. Paperboy™ © 1984 Atari Games All riqtits reserved 
Gauntlet™ © 1985 Alari Games. All rights reserved. 
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